vb中打开原文件为什么显示
㈠ 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总显示文件已打开
重启或注销再多试几次