請問如何用VBA寫 擷取A檔案部分資料填到B檔案中
- 帖子
- 4
- 主題
- 0
- 精華
- 0
- 積分
- 12
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- 2003
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2012-9-19
- 最後登錄
- 2017-5-14
|
看不懂你要複製內容的邏輯,
小弟也是新手,
大至寫了一下,
內容主要是a.xls的內容複製到b.xls
Sub 匯入資料()
Dim Mypath As String '路徑
Dim Myfile As String '目前EXCEL檔案名稱
Myfile = ThisWorkbook.Name
Mypath = InputBox("輸入要匯入的檔案路徑")
Workbooks.Open Filename:=Mypath & "\b.xls"
Windows(Myfile).Activate
Sheets(1).Cells(1, 1).Copy
Windows("b.xls").Activate
Sheets(1).Cells(1, 1).Select
ActiveSheet.Paste
End Sub |
|
|
|
|
|
|
|
發表於 2013-8-21 23:05
| 