[算表] VBA 抓取不同excel的不同sheet資料
軟體:EXCEL
版本:2013
之前搜尋過相關主題，Cidolfas文章剛好是我想要的VBA程式，
但還是有誤麻煩哪位高手幫我看哪邊有錯，謝謝。
我現在有一個資料夾裡有不同EXCEL檔，每個EXCEL檔只有一個Sheet,
而我會用VBA把這些檔合併在同一個EXCEL裡，且每個sheet名稱都依公司名稱命名，
EX.1101台泥 1102亞泥....等等依此類推,而每個Sheet我只要最後一筆資料(整行EX.270)
最後在新的Sheet排列下來，或者先不合併使用Cidolfa大大的
[VBA 抓取同excel的不同sheet資料]最後討論的程式去執行，
但在Set xlWrk = xlapp.Workbooks.Open(OpenFld & "A" & i & ".xls")有誤?
我稍為改的程式碼如下:
Option Explicit
Sub 從不同excel抓取固定欄位的值()
Dim ISht As Worksheet, i&, OpenFld$, n&
Dim sht As Worksheet
Dim xlapp As Excel.Application
Dim xlWrk As Excel.Workbook
Dim xlSht As Excel.Worksheet
Set xlapp = New Excel.Application
Set ISht = Sheets("sheet1")
OpenFld = "C:\Users\jason\Desktop\1\"
For i = 1 To 50
Set xlWrk = xlapp.Workbooks.Open(OpenFld & "A" & i & ".xls")
For Each sht In xlWrk.Sheets
sht.Select
n = n + 1
ISht.Range("C" & n) = sht.[C270]
Next
xlWrk.Close
Next
End Sub
只改讀取路徑和ISht.Range("C" & n) = sht.[C270]此行資料
希望哪位高手可以幫我指正一下，萬分感謝QQ
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 114.41.21.77
→
04/03 08:27, , 1F
04/03 08:27, 1F
→
04/03 12:14, , 2F
04/03 12:14, 2F
→
04/03 12:16, , 3F
04/03 12:16, 3F
→
04/03 12:17, , 4F
04/03 12:17, 4F
→
04/03 12:22, , 5F
04/03 12:22, 5F
→
04/03 12:25, , 6F
04/03 12:25, 6F
→
04/03 12:36, , 7F
04/03 12:36, 7F
→
04/03 12:36, , 8F
04/03 12:36, 8F
→
04/03 12:36, , 9F
04/03 12:36, 9F
→
04/03 12:37, , 10F
04/03 12:37, 10F
→
04/03 14:19, , 11F
04/03 14:19, 11F
→
04/03 14:21, , 12F
04/03 14:21, 12F
→
04/03 14:22, , 13F
04/03 14:22, 13F
→
04/03 14:24, , 14F
04/03 14:24, 14F
→
04/03 14:28, , 15F
04/03 14:28, 15F
推
05/20 19:55, , 16F
05/20 19:55, 16F
→
09/19 17:05, , 17F
09/19 17:05, 17F
Office 近期熱門文章
PTT數位生活區 即時熱門文章
