返回列表 上一主題 發帖

抓取另一個excel檔資料

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

帖子
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
  1. Sub Ex()
  2.     Dim MySheet As Worksheet
  3.     Set MySheet = ActiveSheet
  4.     With Workbooks.Open("d:\test\外部資料.xls")
  5.         .Sheets(1).Range("a1:a10").Copy MySheet.Range("a1")
  6.         .Close 0
  7.     End With
  8. End Sub
複製代碼

TOP

chin15

帖子
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

老夏

帖子
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

帖子
72 
主題
24 
精華
0 
積分
172 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2010-7-16 
最後登錄
2023-7-6 
5#
發表於 2011-3-29 07:30 | 只看該作者
感謝各位大大的回覆，問題已經解決了 謝啦

TOP

7777

帖子
124 
主題
32 
精華
0 
積分
221 
點名
0  
作業系統
XP 
軟體版本
Excel 2003 
閱讀權限
20 
性別
男 
來自
台北市 
註冊時間
2010-9-6 
最後登錄
2024-3-21 
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

        靜思自在 : 【是否發揮了良能？】人間壽命因為短暫，才更顯得珍貴。難得來一趟人間，應問是否為人間發揮了自己的良能，而不要一味求長壽。
返回列表 上一主題