EXCEL抓取CSV資料並即時更新

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

13^# 跳轉到 »

發表於 2014-1-7 16:24 | 只看該作者

回復 2# bqwangs
資料>取得外部資料>從文字檔

TOP

bqwangs

中學生 Rank: 2

帖子: 38
主題: 14
精華: 0
積分: 58
點名: 0
作業系統: win xp
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2013-5-22
最後登錄: 2020-3-9

12^#

發表於 2014-1-7 15:26 | 只看該作者

回復 1# bqwangs
主要是EXCEL檔案會一直開著
但CSV檔案不會開啟但內容資訊會有更新

所以希望EXCEL抓取CSV資訊時
CSV是免開檔的方式抓取或隱式開啟的方式

期待各位大大的教導

TOP

jasonwu0114

小學生 Rank: 1

帖子: 28
主題: 7
精華: 0
積分: 43
點名: 0
作業系統: windows7
軟體版本: office2010
閱讀權限: 10
性別: 男
來自: 台灣
註冊時間: 2013-11-8
最後登錄: 2020-4-9

論壇贊助勳章

11^#

發表於 2013-12-19 14:50 | 只看該作者

回復 9# stillfish00

stillfish00大大
是的沒錯
非常感謝
學到不少東西

小人物

TOP

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

10^#

發表於 2013-12-19 10:13 | 只看該作者

回復 8# jasonwu0114
我好像誤會你的意思了，是這樣嗎?

Sub nn5()
Dim x
With Sheets("工作表1")
For Each x In .Range(.[A3], .Cells(.Rows.Count, "A").End(xlUp)).Offset(, 3)
x.Value = ExecuteExcel4Macro("'X:\風管報表\交換部位評價表\[IRS部位評價表" & x.Offset(, -3).Value & ".xls]部位評價表'!R1C13")
Next
End With
End Sub

複製代碼

TOP

jasonwu0114

小學生 Rank: 1

帖子: 28
主題: 7
精華: 0
積分: 43
點名: 0
作業系統: windows7
軟體版本: office2010
閱讀權限: 10
性別: 男
來自: 台灣
註冊時間: 2013-11-8
最後登錄: 2020-4-9

論壇贊助勳章

9^#

發表於 2013-12-19 09:48 | 只看該作者

回復 7# stillfish00
不好意思還要再麻煩
執行後還是以A3為參數去抓資料

.FormulaR1C1 = "='X:\風管報表\交換部位評價表\[IRS部位評價表" & .Parent.[A3].Value & ".xls]部位評價表'!R1C13"

複製代碼

應該是要改這.Parent.[A3]嗎
如何改??

感恩!!

小人物

TOP

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

8^#

發表於 2013-12-18 18:23 | 只看該作者

本帖最後由 stillfish00 於 2013-12-18 18:30 編輯

回復 6# jasonwu0114

Sub nn4()
With Sheets("工作表1")
With .Range(.[A3], .Cells(.Rows.Count, "A").End(xlUp)).offset(,3)
.FormulaR1C1 = "='X:\風管報表\交換部位評價表\[IRS部位評價表" & .Parent.[A3].Value & ".xls]部位評價表'!R1C13"
.Value = .Value
End With
End With
End Sub

複製代碼

.Rows.Count  :  Excel最大行數
.Cells(.Rows.Count, "A")  :  A欄最下面一格
.Cells(.Rows.Count, "A").End(xlUp)  :  從A欄最下面一格往上找到有資料的儲存格
.Range(.[A3], .Cells(.Rows.Count, "A").End(xlUp))  :  從A3到A欄最後一筆資料形成的範圍
.Range(.[A3], .Cells(.Rows.Count, "A").End(xlUp)).offset(,3)  :  從A3到A欄最後一筆資料形成的範圍，這範圍再往右移動三欄

TOP

jasonwu0114

小學生 Rank: 1

帖子: 28
主題: 7
精華: 0
積分: 43
點名: 0
作業系統: windows7
軟體版本: office2010
閱讀權限: 10
性別: 男
來自: 台灣
註冊時間: 2013-11-8
最後登錄: 2020-4-9

論壇贊助勳章

7^#

發表於 2013-12-18 16:19 | 只看該作者

回復 5# stillfish00

厲害厲害
又學到好幾招
可是還有一點問題
D3~8欄如果原本是空格執行後D1~D3會填以A3為參數找到的資料
如果有數字執行後D3~D8會填以A3為參數找到的資料
要改哪??
還有 With .Range(.[D3], .Cells(.Rows.Count, "D").End(xlUp)) 的意思??

小人物

TOP

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

6^#

發表於 2013-12-18 12:41 | 只看該作者

本帖最後由 stillfish00 於 2013-12-18 12:45 編輯

回復 4# jasonwu0114

Sub nn4()
With Sheets("工作表1")
With .Range(.[D3], .Cells(.Rows.Count, "D").End(xlUp))
.FormulaR1C1 = "='X:\風管報表\交換部位評價表\[IRS部位評價表" & .Parent.[A3].Value & ".xls]部位評價表'!R1C13"
.Value = .Value
End With
End With
End Sub

複製代碼

TOP

jasonwu0114

小學生 Rank: 1

帖子: 28
主題: 7
精華: 0
積分: 43
點名: 0
作業系統: windows7
軟體版本: office2010
閱讀權限: 10
性別: 男
來自: 台灣
註冊時間: 2013-11-8
最後登錄: 2020-4-9

論壇贊助勳章

5^#

發表於 2013-12-18 11:33 | 只看該作者

本帖最後由 jasonwu0114 於 2013-12-18 11:35 編輯

不好意思已解決如下
請問還可以寫的更SMART嗎??
另外yy = "'X:\風管報表\交換部位評價表\[IRS部位評價表" & kk & ".xls]部位評價表'!R1C13"
R1C13這裡只能是單一欄位嗎??

Sub nn4()
Dim yy As String
Dim kk As Range
Set kk = Sheets("工作表1").Range("A3")
Do While kk <> ""
yy = "'X:\風管報表\交換部位評價表\[IRS部位評價表" & kk & ".xls]部位評價表'!R1C13"
kk.Offset(0, 3) = ExecuteExcel4Macro(yy)
Set kk = kk.Offset(1)
Loop
End Sub

小人物

TOP

jasonwu0114

小學生 Rank: 1

帖子: 28
主題: 7
精華: 0
積分: 43
點名: 0
作業系統: windows7
軟體版本: office2010
閱讀權限: 10
性別: 男
來自: 台灣
註冊時間: 2013-11-8
最後登錄: 2020-4-9

論壇贊助勳章

4^#

發表於 2013-12-17 16:28 | 只看該作者

本帖最後由 jasonwu0114 於 2013-12-17 16:29 編輯

找到比較簡單寫法
想請教
假如sheet1A欄有一些日期
是我要抓的檔案名稱一部分(紅字部分)
[IRS交易部位評價表1021216.xls]
如果要把資料抓回放在B欄要如何寫如何設定變數??

另外
一次只能抓一個欄位嗎??

Sub nn()
[A1] = ExecuteExcel4Macro("'X:\風管報表\利率交換部位評價表\[IRS交易部位評價表1021216.xls]部位評價表'!R1C13")
End Sub

小人物

TOP

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]