返回列表下一主題上一主題發帖

EXCEL 抓取另一個 EXCEL 空白出現0

iwiniwin

小學生 Rank: 1

帖子: 25
主題: 10
精華: 0
積分: 35
點名: 0
作業系統: WIN7
軟體版本: S
閱讀權限: 10
性別: 男
註冊時間: 2014-2-19
最後登錄: 2016-2-24

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 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

高中生 Rank: 3 Rank: 3

帖子: 552
主題: 3
精華: 0
積分: 578
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2024-7-9

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

2^#

發表於 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

TOP

GBKEE