這是formㄉ程式碼
Private Sub Form_Load()
Setup_Excel_Object
Fill_Class_Data
End Sub
Private Sub Combo1_Change(Index As Integer)
Fill_Class_Lesson
End Sub
Private Sub Combo1_Click(Index As Integer)
Fill_Class_Lesson
End Sub
Private Sub Combo2_Change()
Fill_Class_Data
End Sub
Private Sub Combo2_Click()
Fill_Class_Data
End Sub
這邊是模組ㄉ~~~
Public Sub Setup_Excel_Object()
Set appExcel = CreateObject("Excel.Application")
Set wbExcel = appExcel.Workbooks.Open(MicrosoftVisualBasic & "\TEST.xls")
End Sub
Public Sub Fill_Class_Data()
Dim temp As Excel.Worksheet
For Each temp In wbExcel.Worksheets
Form1.Combo2.AddItem temp.Name
Next
Form1.Combo2.ListIndex = 0
Set temp = Nothing
End Sub

執行ㄉ時候
Set wbExcel = appExcel.Workbooks.Open(MicrosoftVisualBasic & "\TEST.xls")
顯示找不到檔案~~~請告訴我是我連結ㄉ寫法錯ㄌㄇ~~~~~拜託各位ㄌ
arrow
arrow
    全站熱搜

    vbqa 發表在 痞客邦 留言(2) 人氣()