求助大老，有關VBA匯入外部Excel檔案的部分儲存格問題

gackt597 · 发表于 2022-12-8 22:54

之前跟某大老學了匯入外部Excel檔案的VBA
但是匯入後是整個頁面匯入

我想改成只匯入A到E列的儲存格
已經摸索了好久，但是都不成功

拜託高人指導，感激不盡
公式如下

Sub ABC()
  Dim xDir As String, xPath As String, xWb As Workbook
  xPath = ThisWorkbook.Path
  xDir = Dir(xPath & "\ABC.xlsx", vbDirectory)
  Do While xDir <> ""
Set xWb = Workbooks.Open(xPath & "\" & xDir)
With ThisWorkbook.Sheets("Sheets").Range("A1").End(xlDown)

      If .Row = .Parent.Rows.Count Then
         xWb.Sheets(1).UsedRange.Copy .Cells.End(xlUp)

      Else
         xWb.Sheets(1).UsedRange.Copy .Cells.Offset(1)
      End If


End With
xWb.Close
xDir = Dir
  Loop

End Sub

liulang0808 · 发表于 2022-12-9 08:07

楼主方便的话，上传一下模拟附件

下面的链接案例，楼主可以先参考下
https://club.excelhome.net/threa ... tml?_dsign=c5f4544f
https://club.excelhome.net/threa ... tml?_dsign=73cffde5

解0人 · 发表于 2022-12-9 08:18

xWb.Sheets(1).UsedRange.Copy 改成：xWb.Sheets(1).UsedRange.Columns("A:E").Copy

fzxba · 发表于 2022-12-9 09:11

xWb.Sheets(1).UsedRange.resize(,5).Copy

gackt597 · 发表于 2022-12-9 15:34

liulang0808 发表于 2022-12-9 08:07
楼主方便的话，上传一下模拟附件

下面的链接案例，楼主可以先参考下

謝謝版大提供連結案例，我會好好學習

gackt597 · 发表于 2022-12-9 15:35

解0人发表于 2022-12-9 08:18
xWb.Sheets(1).UsedRange.Copy 改成：xWb.Sheets(1).UsedRange.Columns("A:E").Copy

謝謝大老指導，問題解決了，感激不盡

gackt597 · 发表于 2022-12-9 15:47

fzxba 发表于 2022-12-9 09:11
xWb.Sheets(1).UsedRange.resize(,5).Copy

謝謝各位大老指導，沒問題了，好人一生平安

		自动登录	找回密码
密码			免费注册

[求助] 求助大老，有關VBA匯入外部Excel檔案的部分儲存格問題

评分

评分

评分