EXCEL抓取CSV資料並即時更新

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

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2014-1-7 15:06 | 顯示全部帖子

EXCEL抓取CSV資料並即時更新

我的檔案內容如下是CSV格式

tttt.rar (136 Bytes)
5個資訊我用顏色顯示比較容易讓各位大大了解我的意思
小型台指月奇狐_試用 2013/12/26 12:17:00 8500 1

我想要用一個EXCEL檔
將上面的5個資訊
分別載入至EXCEL的 A1-E1個別儲存格(1個儲值格塞1個資訊)
並會一直更新
也就是
只要CSV的資料有變動
EXCEL也會馬上跟著變動

要有上述此種功能 VBA語法要如何寫

樓主熱帖

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

2^#

發表於 2014-1-7 15:26 | 顯示全部帖子

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

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

期待各位大大的教導

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

3^#

發表於 2014-1-7 20:40 | 顯示全部帖子

本帖最後由 bqwangs 於 2014-1-7 20:41 編輯

超級版主
我的版本是2010的
我試了
不行
是我不會弄
可以幫忙做一個檔案嗎
供我下載

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

4^#

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

本帖最後由 bqwangs 於 2014-1-8 11:14 編輯

回復 16# GBKEE

版大
我依您的方式
弄了一個檔

t1.rar (12.93 KB)

他開啟時需去按巨集再按執行
才會抓取資料
但要如何讓檔案開啟時
即自動抓資料也會一直更新(只要CSV檔變動 EXCEL儲存格資料也跟著變動)
類似同步

之前資料擷取儲值格位置是A1-E1
但如果我要改成A1 A2 B5 E5 C5
那又要如何改??

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

5^#

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

版大
但我試著用按巨集再按執行
他會一直更新跟csv檔案一樣的資訊
有辦法改成每秒自動作按巨集再按執行1次嗎??

之前資料擷取儲值格位置是A1-E1
但如果我要改成A1 A2 B5 E5 C5
那又要如何改??

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

6^#

發表於 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 要指明模組名稱
=====================
錯誤訊息