請問如果有一個股票資料庫，如何使用vba… - Excel程式區

[發問] 請問如果有一個股票資料庫，如何使用vba…

論壇贊助勳章

4^# 跳轉到 »

發表於 2012-12-27 13:02 | 只看該作者

回復 3# gkld

另外，最近自已上網看了一些有關vba的簡單教學，發現這真是一個很實用的工具

   其應用範圍真的很廣泛。

   想請教版大…，如果想要學習的話，有推薦的書單嗎？

論壇贊助勳章

3^#

發表於 2012-12-27 12:52 | 只看該作者

回復 2# GBKEE

感謝…版大，現在正在上班中…;P

回家再來試試看~

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2012-12-27 09:44 | 只看該作者

回復 1# gkld
ActiveSheet '作用中的工作表
是為圖2 中造紙類指數

Option Explicit
Sub Ex()
Dim Ex_Path As String, Ex_File As String, Ex_Date As String, Ex_Wb As Workbook
Ex_Path = "資料夾路徑\" '******修改它********
Ex_File = Dir(Ex_Path & "A112*ALL_1.csv")
If Ex_File = "" Then
MsgBox "沒有 A112*ALL_1.csv"
Exit Sub
End If
Application.ScreenUpdating = False
Do While Ex_File <> ""
Ex_Date = Replace(Ex_File, "A112", "") '消除檔名中"A112"
Ex_Date = Replace(Ex_Date, "ALL_1.csv", "") '消除檔名中"ALL_1.csv"
Ex_Date = DateSerial(Mid(Ex_Date, 1, 4), Mid(Ex_Date, 5, 2), Mid(Ex_Date, 7, 2)) '帶入日期
With ActiveSheet '作用中的工作表
Set Ex_Wb = Workbooks.Open(Ex_Path & Ex_File) '開啟 A11220070102ALL_1.csv.....
.Cells(.Rows.Count, "A").End(xlUp).Offset(1) = Ex_Date '日期輸入
.Cells(.Rows.Count, "B").End(xlUp).Offset(1) = Ex_Wb.Sheets(1).Range("A:A").Find(.Range("B1"), lookat:=xlWhole).Offset(, 1)
'**** 作用中的工作表.Range("B1") 為查詢指數的類別 *********
Ex_Wb.Close '關閉 A11220070102ALL_1.csv.....
End With
Ex_File = Dir '下一個"A112*ALL_1.csv"
Loop
Application.ScreenUpdating = True
MsgBox "OK"
End Sub

複製代碼

靜思自在 : 要比誰更受誰．不要比誰更怕誰。