[已解决]>>>>>>拜託大神求救了!!!!!![VBA]讀取檔案後,import至同一表單!!!!

IFORGOTMYCODE

軟體:Excel 2013
版本:2013

大家好,
想請教前輩關於VBA編寫的問題

現在在 資料夾中,有3個擷取網路頁面的htm的檔案(如附件檔 data.rar (5.29 KB, 下载次数: 0)

2014-6-9 20:09 上传

点击文件名下载附件
檔案 )
1.htm     2.htm     3.htm
在htm網頁裡,當中的第8個表格資料是我要的
我希望將他們讀取進同一個表單,並且如下面這樣

1.htm 's table
2.htm 's table	←接著 1.htm資料結束後的下面一行
3.htm 's table	←接著 2.htm資料結束後的下面一行

但是我現在得到的卻是...
→

3.htm 's table	2.htm 's table	1.htm 's table
3的資料...	2的資料....	1的資料...

請問...我該怎麼修改呢!!!
謝謝!!

程式碼如下：
---



Sub LoadPipeDelimitedFiles()
Dim idx As Integer
Dim fpath As String
Dim fname As String


idx = 0
fpath = "C:\Users\xxxx\Desktop\aaaaa\"
fname = Dir(fpath & "*.htm")
While (Len(fname) > 0)
  idx = idx + 1
  Sheets("Sheet1").Select
  With ActiveSheet.QueryTables.Add(Connection:="URL;" _
   & fpath & fname, Destination:=Range("A1"))
     .Name = "a" & idx
     .FieldNames = True
     .RowNumbers = False
     .FillAdjacentFormulas = False
     .PreserveFormatting = True
     .RefreshOnFileOpen = False
     .RefreshStyle = xlInsertDeleteCells
     .SavePassword = False
     .SaveData = True
     .AdjustColumnWidth = True
     .RefreshPeriod = 0
     .WebSelectionType = xlSpecifiedTables
     .WebFormatting = xlWebFormattingNone
     .WebTables = "8"
     .WebPreFormattedTextToColumns = True
     .WebConsecutiveDelimitersAsOne = True
     .WebSingleBlockTextImport = False
     .WebDisableDateRecognition = False
     .WebDisableRedirections = False

     .Refresh BackgroundQuery:=False
     fname = Dir
    End With
Wend
End Sub

最佳答案

月排行榜 / 总排行榜

zpy2

2014-6-10 07:13

_ & fpath & fname, Destination:=Range("A1").0ffcet(idx*30，))

跳转到最佳答案楼层

zpy2

_ & fpath & fname, Destination:=Range("A1").0ffcet(idx*30，))