㈠ VB中打開excel為只讀,不知為何
重復性打開EXCEL程序。
VB調用完EXCEL程序後,不僅要關閉EXCEL文件,還要關閉EXCEL程序。
VB6.0 EXCEL文件擴展名為xls的情況。
Dim MyXL As Object '定義存放引用對象的變數。
Set MyXL = CreateObject("excel.application")
Set mysheet = Nothing
Set mybook = Nothing
Set mybook = MyXL.Workbooks.Open(「D:\123.XLS」)
Set mysheet = mybook.Worksheets("sheet1")
mysheet.Range("a1") =Textbox1.text
mybook.SaveAs d:\abc.xls
mybook.Close
MyXL.Quit
當然也有是程序過程中出現問題,被強制關閉程序時,後台並沒有關閉EXCEL程序。因此,當出現此情況時。關閉當前只讀後,打開任務管理器,查看進程,會發現一個EXCEL程序處於運行狀態,強制關閉後。再用VB調用就不會出現此情況。
㈡ vb源代碼運行時老顯示用戶定義類型未定義
你得在組件裡面將excel勾選上
㈢ 為什麼打開vb顯示這樣
程序找不到data1.msi這個文件了,需要你在下面的框中輸入這個文件所在的文件夾,或者用瀏覽按鈕找到所在文件夾。
出現這個的原因可能是:你的系統發生了變化,原來能用的,現在找不到了,比如加了磁碟,盤符變了等。也可能是增加了新的調用,找不到文件了。最直接簡單的解決就是把這個對話框中要求的那個文件找到。
㈣ 為什麼我的vb程序總出現"未找到方法或數據源"的提示
你的conn沒有open。。。資料庫沒有打開
㈤ VB 顯示打開文件對話框
1、啟動vb6。
2、在菜單-工程-部件-添加Microsoft Common Dialog Control 6.0 (SP6)
3、添加CommonDialog1、Command1到窗體。
4、程序代碼:
Private Sub Command1_Click()
' 設置「CancelError」為 True
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
' 設置標志
CommonDialog1.Flags = cdlOFNHideReadOnly
' 設置過濾器
CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files" & _
"(*.txt)|*.txt|Batch Files (*.bat)|*.bat"
' 指定預設的過濾器
CommonDialog1.FilterIndex = 2
' 顯示「打開」對話框
CommonDialog1.ShowOpen
' 顯示選定文件的名字
MsgBox CommonDialog1.FileName
Exit Sub
ErrHandler:
' 用戶按了「取消」按鈕
Exit Sub
End Sub
㈥ vb打開excel錄入數據後保存並關閉,我是要修改並保存源文件,但是總提示已存在
有可能是你調試的時候EXCEL的程序在後台沒有退出,在任務管理器裡面把所有的EXCEL程序都退出了試一下,我以前做的時候也有這種情況
㈦ 為什麼vb總顯示文件已打開
重啟或注銷再多試幾次