imzues

帖子: 72
主題: 24
精華: 0
積分: 172
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2010-7-16
最後登錄: 2023-7-6

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2011-3-28 13:22 | 只看該作者

抓取另一個excel檔資料

請問一下，
我想抓起固定路徑下的excel檔案的資料
我要怎麼用巨集寫
拜託各位大大指點一下

樓主熱帖

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2011-3-28 13:38 | 只看該作者

回復 1# imzues

Sub Ex()
Dim MySheet As Worksheet
Set MySheet = ActiveSheet
With Workbooks.Open("d:\test\外部資料.xls")
.Sheets(1).Range("a1:a10").Copy MySheet.Range("a1")
.Close 0
End With
End Sub

複製代碼

TOP

chin15

中學生 Rank: 2

帖子: 227
主題: 3
精華: 1
積分: 273
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
性別: 女
註冊時間: 2011-3-22
最後登錄: 2013-1-29

3^#

發表於 2011-3-28 13:55 | 只看該作者

這類操作個人較傾向於ADO+SQL
Sub test()
Dim CNN As New ADODB.Connection
Dim RST As New ADODB.Recordset
With CNN
.ConnectionString = "provider=microsoft.jet.oledb.4.0;" & _
"extended properties='Excel 8.0;hdr=no';" & _
"data source=D:\外部資料.xls"
.Open
End With
[A1].CopyFromRecordset CNN.Execute("select * from [SHEET1$A1:A10]")
End Sub
或者直接用資料~匯入外部資料，手工查詢！

TOP

老夏

中學生 Rank: 2

帖子: 109
主題: 22
精華: 0
積分: 134
點名: 0
作業系統: Win7
軟體版本: Office 2000
閱讀權限: 20
性別: 男
來自: 台北市
註冊時間: 2010-5-1
最後登錄: 2023-3-5

論壇貢獻勳章

4^#

發表於 2011-3-28 20:48 | 只看該作者

本帖最後由老夏於 2011-3-29 12:12 編輯

最簡單易用的方法:物件連結法

九大功能表
插入>>物件>>自檔案中建立>>勾選連結>>找URL>>確定

TOP

imzues

中學生 Rank: 2

帖子: 72
主題: 24
精華: 0
積分: 172
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2010-7-16
最後登錄: 2023-7-6

5^#

發表於 2011-3-29 07:30 | 只看該作者

感謝各位大大的回覆，問題已經解決了謝啦

TOP

7777

中學生 Rank: 2

帖子: 125
主題: 33
精華: 0
積分: 223
點名: 0
作業系統: XP
軟體版本: Excel 2003
閱讀權限: 20
性別: 男
來自: 台北市
註冊時間: 2010-9-6
最後登錄: 2024-6-8

6^#

發表於 2013-3-17 18:00 | 只看該作者

回復 2# GBKEE

煩請大大請再次協助
抓取另一個excel檔如檔名有所變動時，
及不同工作表資料時，應如何處理。

Sub 轉檔1()　'原方案
Windows("報表1.xls").Activate
Range("A2:E24").Select
Selection.Copy
Windows("報表2.xls").Activate
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
      :=False, Transpose:=False
Range("A1").Select
End Sub

Sub 轉檔2() '修改方案

[G2] = InputBox(" 請輸入  # 檔名 #", " 轉檔：今日報表") '手鍵 22

Windows("報表1.xls").Activate '原始檔名
Range("A2:E24").Select
Selection.Copy

Windows("報表" & [G2] & ".xls").Activate '預複製檔案之檔名可否為 [變數] =G2 儲存格之內容
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
      :=False, Transpose:=False
Range("A1").Select
End Sub

拜託大大指點一下感謝!!

50 字節以內
不支持自定義 Discuz! 代碼

TOP