2,463
社区成员
发帖
与我相关
我的任务
分享
m = Workbooks("headinfo.csv").Sheets("headinfo").Range("A1").Rows.End(xlDown).Row
strRange = "A1:A" & m
Workbooks("headinfo.csv").Sheets("headinfo").Range(strRange).Copy _
Workbooks("WNCWorkSheet1").Sheets("程式单").Range("C5")
m = Workbooks("headinfo.csv").Sheets("headinfo").Range("A65536").Rows.END(XLUP).ROW
m = Workbooks("headinfo.csv").Sheets("headinfo").Range("A1").Rows.End(xlDown).Row
strRange = "A1:A" & m
debug.? strRange
'Workbooks("headinfo.csv").Sheets("headinfo").Range(strRange).Copy _
Workbooks("WNCWorkSheet1").Sheets("程式单").Range("C5")
Dim id As Long
id = InStr(MyTitle, " - ")
Dim p As String
p = Mid(MyTitle, id + 3)
Workbooks.Open p & "wncinfo.xls"
Workbooks.Open p & "headinfo.csv"
Dim strRange As String
m = Workbooks("headinfo.csv").Sheets("headinfo").Range("A1").Rows.End(xlDown).Row
strRange = "A1:A" & m
Workbooks("headinfo.csv").Sheets("headinfo").Range(strRange).Copy _
Workbooks("WNCWorkSheet1").Sheets("程式单").Range("C5")
完整的是这样的