摘要:
Dim file As StringPrivate Sub openfile(ByVal Target As Range)If Target.Row = 1 And Target.Column = 1 ThenopennextfileEnd IfEnd Sub Sub opennextfile() 阅读全文
摘要:
module1 Dim file As String Dim jinengname As String Dim jinengid As String Dim xuhuantimes As Integer Dim kongge As Integer Dim csjs As String Dim ope 阅读全文