返回列表 上一主題 發帖

請問如何用VBA寫 擷取A檔案部分資料填到B檔案中

blunt

帖子
4 
主題
0 
精華
0 
積分
12 
點名
0  
作業系統
xp 
軟體版本
2003 
閱讀權限
10 
性別
男 
註冊時間
2012-9-19 
最後登錄
2017-5-14 
1# 跳轉到 »
發表於 2013-8-21 23:05 | 顯示全部帖子
看不懂你要複製內容的邏輯,
小弟也是新手,
大至寫了一下,
內容主要是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

TOP

        靜思自在 : 【時日莫空過】一個人在世間做了多少事，就等於壽命有多長。因此必須與時間競爭，切莫使時日空過。
返回列表 上一主題