標題:
EXCEL 抓取另一個 EXCEL 空白出現0
[打印本頁]
作者:
iwiniwin
時間:
2015-3-5 15:20
標題:
EXCEL 抓取另一個 EXCEL 空白出現0
Sub 按鈕12_Click()
Dim sPath As String
sPath = ThisWorkbook.Path & "\"
Range("A1:A999").FormulaArray = "='" & sPath & "[tmp.xlsx]tmp'!A1:A999"
Range("B1:B999").FormulaArray = "='" & sPath & "[tmp.xlsx]tmp'!C1:C999"
End Sub
我用EXCEL 抓取 Tmp EXCEL 資料 但是我不確定這個資料到幾行 所以寫到999 但是 空白儲存個會回傳0
這部分有人清楚如何更改嗎?
空白區塊我還是要讓她回傳空白阿
作者:
lpk187
時間:
2015-3-5 21:27
回復
1#
iwiniwin
那就用查詢該欄的最後位址的方式去做
Sub 按鈕12_Click()
Dim sPath As String
sPath = ThisWorkbook.Path & "\"
Workbooks.Open (sPath & "tmp.xlsx")
ARow = Workbooks("tmp.xlsx").Sheets("tmp").Columns(1).Find("*", , , , , 2).Row
CRow = Workbooks("tmp.xlsx").Sheets("tmp").Columns(3).Find("*", , , , , 2).Row
Workbooks("tmp.xlsx").Close
Range("A1:A" & ARow).FormulaArray = "='" & sPath & "[tmp.xlsx]tmp'!A1:A" & ARow
Range("B1:B" & CRow).FormulaArray = "='" & sPath & "[tmp.xlsx]tmp'!C1:C" & CRow
End Sub
作者:
GBKEE
時間:
2015-3-6 08:07
回復
1#
iwiniwin
空白儲存個會回傳0 這部分有人清楚如何更改嗎?
[attach]20383[/attach]
歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)
