導航:首頁 > 源碼編譯 > 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編譯錯誤相關的資料

熱點內容
安卓丟包怎麼 瀏覽:428
pythontkinter例子 瀏覽:880
app聊主是什麼意思 瀏覽:343
用條件編譯法編寫程序 瀏覽:475
鏡像文件解壓後有文件可以刪嗎 瀏覽:458
國家反詐中心app怎麼幫別人注冊 瀏覽:52
python詞典哈希 瀏覽:97
阿里雲伺服器沒有桌面 瀏覽:876
如何搭建京東自動做任務伺服器 瀏覽:804
pasword加密原理 瀏覽:452
程序員學習圖 瀏覽:460
烹飪原料pdf 瀏覽:903
抖音自己喜歡的視頻怎麼加密 瀏覽:872
點播電影用什麼伺服器 瀏覽:967
聲音解壓切巧克力 瀏覽:23
如何設置無線ftp伺服器 瀏覽:433
解壓小哥哥舞蹈視頻 瀏覽:492
歷史k線指標源碼 瀏覽:397
php高級程序設計pdf 瀏覽:244
泰格加密狗能幹嘛 瀏覽:944