我想要用VB軟體來做出可以讀取寫excel檔案的程式
1.請先宣告下列參數:
Public Excel_App As Excel.Application '定義EXCEL類
Public Excel_Book As Excel.Workbook '定義工件簿類
Public Excel_sheet As Excel.Worksheet '定義工作表類
Public MonthBuff, DayBuff As String '定義EXCEL檔名
2.在VB程式中的"設定引用項目"中勾選Excel Library選項.
3.開啟Excel檔案之副程式:
Public Sub Open_Excel_Files()
Set Excel_App = CreateObject("Excel.Application") '創建EXCEL應用類
Frmtest.Files_CommonDialog.FilterIndex = 4
Frmtest.Files_CommonDialog.DialogTitle = "開啟舊檔"
Open_Files
'If Frmtest.Files_CommonDialog.FileName <> "" Then
'Exit_Excel
Set Excel_Book = Excel_App.Workbooks.Open(Frmtest.Files_CommonDialog.FileName) '開啟EXCEL工作簿
Set Excel_sheet = Excel_Book.Worksheets(1) '打開EXCEL工作表
Excel_sheet.Activate '啟動工作表
Excel_App.Visible = True
'End If
End Sub
(字數有限,細節可與我連絡)
參考資料
http://tw.myblog.yahoo.com/lesterwu1971@kimo.com/article?mid=37&next=35&l=f&fid=10 2009-07-06 01:41:27 補充
有實例哦,請參考我的文章:"VB 6.0 與 Excel之間的曖昧關係"
http://tw.myblog.yahoo.com/lesterwu1971@kimo.com/article?mid=37&next=35&l=f&fid=10
2009-07-06 01:47:23 補充
msn通常在公司在用作內部聯繫,很少對外使用,因此我也不清楚我的帳號,不過skype可以嗎?請搜尋lesterwu1971
相關詞：
vb程式設計,vb教學,vb 6 0主程式下載,vb程式碼,vb下載,vb計算機,vb程式下載,vb陣列,vb迴圈,vb亂數
VB,quot,檔案,CommonDialog,Excel.Application,軟體,程式,加減乘除,做出一個,定義
留言列表
