EXCEL抓取CSV資料並即時更新 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » EXCEL抓取CSV資料並即時更新

返回列表下一主題上一主題發帖

EXCEL抓取CSV資料並即時更新

超級版主 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兔年全勤獎章

1^# 跳轉到 »

發表於 2014-1-7 17:22 | 顯示全部帖子

回復 12# bqwangs

Option Explicit
Sub Ex()
Dim Ar
Ar = ExecuteExcel4Macro("'d:\[tttt.csv]tttt'!R1C1")
'd:\ 請修改為正確路徑
Ar = Split(Trim(Ar), Space(2))
With ActiveSheet.[a1:e1]
.Value = Ar
.Value = .Value
End With
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

超級版主 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^#

發表於 2014-1-8 07:47 | 顯示全部帖子

回復 15# bqwangs
14# 的程式碼,可不開檔讀取資料,2003可正常執行.

另幕後開檔讀取資料,可參考

Option Explicit
Sub Ex()
Dim Ar
'd:\ 請修改為正確路徑
With GetObject("d:\tttt.csv").Sheets(1)
Ar = Split(Trim(.[a1]), Space(2))
.Parent.Close 0
End With
With ActiveSheet.[a1:e1]
.Value = Ar
.Value = .Value
End With
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

超級版主 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兔年全勤獎章

3^#

發表於 2014-1-9 10:15 | 顯示全部帖子

回復 17# bqwangs
你說只要CSV檔變動 EXCEL儲存格資料也跟著變動
用CSV檔無法更新連結

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

超級版主 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兔年全勤獎章

4^#

發表於 2014-1-9 11:08 | 顯示全部帖子

回復 19# bqwangs

Option Explicit
Sub Ex()
Dim Ar As Variant, E As Range, i As Integer
'd:\ 請修改為正確路徑
With GetObject("d:\tttt.csv").Sheets(1)
Ar = Split(Trim(.[a1]), Space(2))
.Parent.Close 0
End With
i = 0
For Each E In ActiveSheet.[A1,A2,B5,E5,C5]
E = Ar(i)
i = i + 1
Next
Application.OnTime Time + #12:00:01 AM#, "工作表1.Ex"
'程式在物件模組 OnTim 要指明模組名稱
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

超級版主 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兔年全勤獎章

5^#

發表於 2014-1-9 15:50 | 顯示全部帖子

回復 21# bqwangs

Application.OnTime Time + #12:00:01 AM#, "工作表1.Ex"
15. '程式在物件模組 OnTim 要指明模組名稱 (工作表1 是物件模組)

複製代碼

'This Workbook是 (物件模組)
Private Sub Workbook_Open()
Ex
End Sub
=============
'Module1裡放程式(Module1是一般模組)
Sub Ex()
Dim Ar As Variant, E As Range, i As Integer
'd:\ 請修改為正確路徑
With GetObject("d:\tttt.csv").Sheets(1)
Ar = Split(Trim(.[a1]), Space(2))
.Parent.Close 0
End With
i = 0
For Each E In ActiveSheet.[A1,A2,B5,E5,C5]
E = Ar(i)
i = i + 1
Next
Application.OnTime Time + #12:00:01 AM#, "Ex"
'程式在物件模組 OnTim 要指明模組名稱,(Module1是一般模組 OnTim可以不指明模組名稱)

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

靜思自在 : 生氣，就是拿別人的過錯來懲罰自己。

返回列表下一主題上一主題