VB打开EXCEL的方法.doc

VB打开EXCEL的方法
一楼的没有指明
Dim xlBook As
Set xlBook = ("文件名")
这种语法同样要求excel已经存在才能操作。
Public xlApp As
Public xlBook As
Public xlChar As New
Public xlSheet As New
Set xlApp = New
Set xlApp = CreateObject("")
Set xlBook =
Set xlSheet =
(1, 1) = "测试" '写入内容
("FILENAME") '保存文件

Set xlApp = Nothing
本方法采用add添加excel文件和datasheet,然后用save保存。=False,则自动生成文件。但是如果文件已经存在,则会弹出是否覆盖的提示。因此,最好先在程序中检查文件是否已经存在,如果存在,则用普通方法打开。如果不存在,则用add添加,并保存。
 
★打开相对路径下的文件
Private mand1_Click()
Shell & "\"
End Sub
还有更简单的:
Private mand1_Click()
Shell ""
End Sub
.
那就不一定......
(包括文件夹)
代码:
Private mand1_Click()
Shell " "
End Sub
★VB调用EXCEL自带的查询功能在表格中查找内容
Private Cx_Click()
On Error GoTo 50
i = ("代码").Range("A:A").Find(Trim()).Row
★将程序中所有这一类的对象的某一属性全部更改为需要的属性
Dim Item As Object '定义对象
For Each Item In Me
If TypeOf Item Is TextBox Then = ""   '将所有TextBox的Text属性值变为空
If TypeOf Item boBox Then = -1   'boBox的ListIndex属性值变为“-1”
Next
 
If Not i = 0 Then
Dm = Trim()
Sm = Trim(("代码").Cells(i, "B").Value)
Dw = Trim(("代码").Cells(i, "D").Value)
= Sm & "  " & "(" & Dw & ")"
= True
GoTo 100
End If
50
= "没有找到相匹配的信息!"
100
End Sub
★如何使编的程序可以调用excel
首先要引用
再定义对象及其类型
Dim xlApp As
Dim xlBook As
Dim xlSheet As
Set xlApp = CreateObject("")         '创建EXCEL对象
Set xlBoo
k = ("D:\检包组\合金厂代码查询\xls\")
= False
Set xlSheet = ("确认信息")
★另存为
ChDir "D:\"
    Filename:="D:\合金厂产品