應用程式專案 我在EXCEL裡寫了一個VBA 現在我想請問各位高手們>"< 1.希望我VB的FORM3按下BUTTON 1以後 TEXTBOX1輸入的值寫到EXCEL SHEET8的(B,2)儲存格 TEXTBOX2輸入的值寫到EXCEL SHEET8的(C,2)儲存格 TEXTBOX3輸入的值寫到EXCEL SHEET8的(D,2)儲存格 TEXTBOX4輸入的值寫到EXCEL SHEET8的(E,2)儲存格 TEXTBOX5輸入的值寫到EXCEL SHEET8的(F,2)儲存格 (因為VBA在執行的時候會用到這些儲存格裡的數值) 請問要怎麼寫呢?? 2.FORM3按下BUTTON2以後 COMBOBOX1輸入的值寫到EXCEL SHEET8的(B,5)儲存格 COMBOBOX2輸入的值寫到EXCEL SHEET8的(C,5)儲存格 COMBOBOX3輸入的值寫到EXCEL SHEET8的(D,5)儲存格 COMBOBOX4輸入的值寫到EXCEL SHEET8的(E,5)儲存格 COMBOBOX5輸入的值寫到EXCEL SHEET8的(F,5)儲存格 並開始執行巨集 (巨集跑完會將數據存到SHEET1裡的(P,2)到(X,2)這9格儲存格中 我希望把這9格的資料依序匯出到VB FORM4裡的 TEXTBOX1到TEXTBOX9裡面，並且關閉FORM3(也就是只剩下FORM4還留著 請問要怎麼寫呢??? 我現在有寫了↓ Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click ProcessExcel() '存取Excel End Sub Sub ProcessExcel() Try '建立Excel物件並開啟C:\DATA.xls中的Sheet8 oExcel = CreateObject("Excel.Application") oExcel.Visible = False oBooks = oExcel.Workbooks oBook = oBooks.Open(Application.StartupPath & "\DATA") 'Application.StartupPath & "\DATA" "C:\Documents and Settings\WAW\桌面\WindowsApplication2\WindowsApplication2\bin\Debug\DATA" osheet8 = oBook.Worksheets("計算") '禁止顯示對話框和警告消息 oExcel.DisplayAlerts = False '取消任務欄中的窗口選項 oExcel.ShowWindowsInTaskbar = False '寫入答案至Sheet8中的空白儲存格() osheet8.Cells(2, 2).value = TextBox1.Text osheet8.Cells(2, 3).value = TextBox2.Text osheet8.Cells(2, 4).value = TextBox3.Text osheet8.Cells(2, 5).value = TextBox4.Text osheet8.Cells(2, 6).value = TextBox5.Text '存檔 'oExcel.Save() oExcel.SaveWorkspace() '關閉並釋放Excel物件 oBook.Close(False) oBook = Nothing '如果少掉這行,excel就不會正常關掉 oBooks = Nothing '如果少掉這行,excel就不會正常關掉 oExcel.Quit() System.Runtime.InteropServices.Marshal.ReleaseComObject(oExcel) oExcel = Nothing '如果少掉這行,excel就不會正常關掉 Catch ex As Exception End Try End Sub 但他就是不會寫入我要的SHEET8儲存格裡 完全沒反應，COMBOBOX的也是寫不進去 現在唯一成功的動作就是 'Run the macros. oExcel.Run("calculate") 這個指令他有再跑而以，可是資料沒寫進去跑了也是白跑>"< 麻煩大家救救我了~~~謝謝!! -- ˋㄆ \|/ 了丰 甲 大 ┌╮ ╰─ 子 ＊ F C U _T A L K ▌▎▉▋▌▎▉▋ ▌▎▉▋▌▎▉▋ ▌▎▉▋ --

※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 140.134.72.180