应用程式专案 我在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