導航:首頁 > 源碼編譯 > excelvb編譯錯誤

excelvb編譯錯誤

發布時間:2023-05-17 00:41:44

Ⅰ VB 創建Excel對象時 出現 無效外部過程 編譯錯誤

代碼要寫在過程內 如:
Private Sub Form_Load()
Dim XlsObj As Excel.Application 'Excel對象
Dim XlsBook As Excel.Workbook '工作簿
Dim XlsSheet As Excel.Worksheet '工作表
Set XlsObj = CreateObject("Excel.Application") '創建EXCEL對象
End Sub

Ⅱ vb6.0添加excel的問題 一下代碼提示編譯錯誤 「用戶定義類型未定義」

1:讀取。

1、在VB中,建立一個FORM,在其上放置兩個命令按鈕,將Command1的Caption屬性改為EXCEL,Command2的Caption屬性改為End。然後在其中輸入如下程序:

Dim xlApp As Excel.Application '定義EXCEL類
Dim xlBook As Excel.Workbook '定義工件簿類
Dim xlsheet As Excel.Worksheet '定義工作表類
Private Sub Command1_Click() '打開EXCEL過程
If Dir("D:\temp\excel.bz") = "" Then '判斷EXCEL是否打開
Set xlApp = CreateObject("Excel.Application") '創建EXCEL應用類
xlApp.Visible = True '設置EXCEL可見
Set xlBook = xlApp.Workbooks.Open("D:\temp\bb.xls") '打開EXCEL工作簿
Set xlsheet = xlBook.Worksheets(1) '打開EXCEL工作表
xlsheet.Activate '激活工作表
xlsheet.Cells(1, 1) = "abc" '給單元格1行駛列賦值
xlBook.RunAutoMacros (xlAutoOpen) 運行EXCEL中的啟動宏
Else
MsgBox ("EXCEL已打開")
End If
End Sub

Private Sub Command2_Click()
If Dir("D:\temp\excel.bz") <> "" Then '由VB關閉EXCEL
xlBook.RunAutoMacros (xlAutoClose) '執行EXCEL關閉宏
xlBook.Close (True) '關閉EXCEL工作簿
xlApp.Quit '關閉EXCEL
End If
Set xlApp = Nothing '釋放EXCEL對象
End
End Sub

2、在D盤根目錄上建立一個名為Temp的子目錄,在Temp目錄下建立一個名為"bb.xls"的EXCEL文件。

3、在"bb.xls"中打開Visual Basic編輯器,在工程窗口中點滑鼠鍵選擇插入模塊,在模塊中輸入入下程序存檔:

Sub auto_open()
Open "d:\temp\excel.bz" For Output As #1 '寫標志文件
Close #1
End Sub
Sub auto_close()
Kill "d:\temp\excel.bz" '刪除標志文件
End Sub

4、運行VB程序,點擊EXCEL按鈕可以打開EXCEL系統,打開EXCEL系統後,VB程序和EXCEL分別屬兩個不同的應用系統,均可同時進行操作,由於系統加了判斷,因此在VB程序中重復點擊EXCEL按鈕時會提示EXCEL已打開。如果在EXCEL中關閉EXCEL後再點EXCEL按鈕,則會重新打開EXCEL。而無論EXCEL打開與否,通過VB程序均可關閉EXCEL。

2:寫入。
Excel導入sql:

'引用ADO(Microsoft ActiveX Data Objects 2.X Library)
Private Sub Command2_Click()
Dim cn As New ADODB.Connection
cn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Password=123;Initial Catalog=dataBase001;Data Source=mySERVICE"
cn.CursorLocation = adUseClient
cn.Open
cn.Execute "select * into table4 from OpenRowSet('microsoft.jet.oledb.4.0','Excel 8.0;HDR=Yes;database=d:\temp\bb.xls;','select * from [Sheet1$]')"
cn.Close
Set cn=Nothing
End Sub

Ⅲ EXCEL 內運行vb腳本 編譯出錯 方法和數據成員未找到

出現 數據成員未找到 就是代碼中的控制項你未在部件菜單中引用 導致系統默認使用文本框或者圖片框控制項來代替你原本的控制項 而這兩個控制項所擁有的屬性方法 和你那個日期控制項有差別 如value屬性 所以當代碼運行到有value就會報錯

閱讀全文

與excelvb編譯錯誤相關的資料

熱點內容
c寫一個簡單的中文編譯器 瀏覽:413
反編譯圖片怎麼弄 瀏覽:100
水空調需要壓縮機嗎 瀏覽:824
h3cdns配置命令 瀏覽:735
曹操傳找不到視頻解壓文件 瀏覽:939
zblogphp插件 瀏覽:649
好興動app怎麼掌上取現 瀏覽:133
python折舊率 瀏覽:538
漣源雲伺服器 瀏覽:992
linux中代表什麼 瀏覽:33
androidphone模塊 瀏覽:35
linux中斷表 瀏覽:177
文本寫的java如何編譯運行 瀏覽:524
單片機pwm控制舵機 瀏覽:318
壓縮機sd是什麼 瀏覽:772
php獲取數據轉json數據 瀏覽:525
程序員入職比期望薪資高 瀏覽:889
蘋果電腦怎麼在桌面建新文件夾 瀏覽:526
蘋果上不小心買錯了app怎麼撤銷 瀏覽:845
蘋果手機在設置怎麼卸載app 瀏覽:317