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

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

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

EXCEL抓取CSV資料並即時更新

中學生 Rank: 2

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

21^# 跳轉到 »

發表於 2014-1-9 14:14 | 只看該作者

版大
我是程式大外行
1.上述的程式是放到工作表1的VB裡
還是放到Module1嗎??
2.Application.OnTime Time + #12:00:01 AM#, "工作表1.Ex"
'程式在物件模組 OnTim 要指明模組名稱
是要改成??
Application.OnTime Time + #12:00:01 AM#, "Module1.Ex"
3.我將程式放到工作表1的VB裡
還是要去按巨集再按執行
要如何變成一開檔案就馬上會執行

=============
This Workbook裡
Private Sub Workbook_Open()
Ex
      End Sub
=============
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#, "工作表1.Ex"
'程式在物件模組 OnTim 要指明模組名稱
=====================
錯誤訊息

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

22^#

發表於 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元的贊助,人人有能力.

靜思自在 : 有願放在心裡，沒有身體力行，正如耕田不播種，皆是空過因緣。

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