1. excel vb 打开文件
1、在工程中引用Microsoft Excel类型库：
从"工程"菜单中选择"引用"栏；选择MicrosoftExcel 9.0 Object Library（EXCEL2000），然后选择"确定"。表示在工程中要引用EXCEL类型库。
2、在通用对象的声明过程中定义EXCEL对象：
Dim xlApp AsExcel.Application
Dim xlBook As Excel.WorkBook
Dim xlSheet AsExcel.Worksheet
3、在程序中操作EXCEL表常用命令：
Set xlApp = CreateObject("Excel.Application")'创建EXCEL对象
Set xlBook =xlApp.Workbooks.Open("文件名")'打开已经存在的EXCEL工件簿文件
xlApp.Visible = True '设置EXCEL对象可见（或不可见）
Set xlSheet =xlBook.Worksheets("表名") '设置活动工作表
xlApp.Cells(row, col) =值 '给单元格（row,col）赋值
XLApp.Cells(i, 1).Interior.ColorIndex= i'设计单元格颜色i=1--56
xlSheet.PrintOut '打印工作表
xlBook.Close (True) '关闭工作簿
xlApp.Quit '结束EXCEL对象
Set xlApp = Nothing '释放xlApp对象
xlBook.RunAutoMacros(xlAutoOpen) '运行EXCEL启动宏
xlBook.RunAutoMacros(xlAutoClose) '运行EXCEL关闭宏
自己用代码就可以获取颜色列表了
Sub yansecode()
For i = 1 To 56
XlApp.Cells(i, 1) = i
xlapp.Cells(i,1).Interior.ColorIndex = i
Next
End Sub
2. vb读取excel文件
用SQL语句，将表导出为EXCEL。
SELECT
字段表
INTO
[Excel
8.0;database=D:\temp\200803.XLS].Data
FROM 表
3. vb打开指定excel文件
VB本身的自动化功能就可以实现，其方法如下：
1、在工程中引用Microsoft Excel类型库：
从"工程"菜单中选择"引用"栏；选择Microsoft Excel 9.0 Object Library（EXCEL2000），然后选择"确定"。表示在工程中要引用EXCEL类型库。
2、在通用对象的声明过程中定义EXCEL对象：
Dim xlApp As Excel.Application
Dim xlBook As Excel.WorkBook
Dim xlSheet As Excel.Worksheet
4. vb 打开文件夹
要用到inet控件。public strData as string '这段可以返回服务器中的第一级目录名，保存在strData中， 如有多个文件夹名每个文件夹名会以空格分开。读取时判段一下。 Inet1.Execute
Inet1.URL, "dir """ & dirName & """" Do DoEvents Loop While Inet1.StillExecuting
= True msgbox strData '这段是进入目录中，要想获得服务器中所有的文件夹名，就可以用递规的办法来获得。 Inet1.Execute
Inet1.URL, "cd """ & dirName & """" Do DoEvents Loop While Inet1.StillExecuting
= True Private Sub Inet1_StateChanged(ByVal State As Integer) Select Case State Case 1 StatusBar1.Panels.Item(1).Text
= "该控件正在查询所指定的主机的 IP 地址" Case 2 StatusBar1.Panels.Item(1).Text
= "该控件已成功地找到所指定的主机的 IP 地址" Case 3 StatusBar1.Panels.Item(1).Text
= "该控件正在与主机连接" Case 4 StatusBar1.Panels.Item(1).Text
= "该控件已与主机连接成功" Case 5 StatusBar1.Panels.Item(1).Text
= "该控件正在向主机发送请求" Case 6 StatusBar1.Panels.Item(1).Text
= "该控件发送请求已成功" Case 7 StatusBar1.Panels.Item(1).Text
= "该控件正在接收主机的响应" Case 8 StatusBar1.Panels.Item(1).Text
= "该控件已成功地接收到主机的响应" Case 9 StatusBar1.Panels.Item(1).Text
= "该控件正在解除与主机的连接" Case 10 StatusBar1.Panels.Item(1).Text
= "该控件已成功地与主机解除了连接" Case 11 MsgBox "与主机通讯时出现了错误", vbInformation, "个人资料" Case 12 Dim vtData As Variant Dim bDone As Boolean bDone = False '取得第一个块。 vtData = Inet1.GetChunk(1024, icString) DoEvents Do While Not bDone strData = strData & vtData '取得下一个块。 vtData = Inet1.GetChunk(1024, icString) DoEvents If Len(vtData) = 0 Then bDone = True End If Loop StatusBar1.Panels.Item(1).Text
= "该请求已经完成，并且所有数据均已接收到" Case Else StatusBar1.Panels.Item(1).Text
= Inet1.ResponseCode
& ": " & Inet1.ResponseInfo
End Select End Sub 关于inet控件的祥细用法可以看msdn中的帮助。
5. vb怎么打开文件夹
进入共享文件夹可以用直接路径的，不过如果要进入共享文件夹下子文件夹里，要先进入共享文件夹，然后再过，不然可能会出现文件查找不到(就算没有密码也有可能会出现)例如：进入局域网客户机PC的共享文件夹basic下子文件夹file里的文件text.txt就要先访问//pc/basic，写入密码，然后再进入//pc/basic/file/text.txt
6. vb生成excel文件
先用程序修改vb模块访问信任状态，再枚举全部工作簿，写入模块代码
7. vb打开文件夹的代码
比较简单，用程序将文件名修改，例如修改为原文件夹名.{f456782-4c8b-57ff-00dd00786f6sw}，即可，如果要解密，需要使用Winrar.exe解密。具体：在一个窗体添加DriveListBox控件一个，DirListBox控件一个，二个按钮控件，按钮分别是“加密”和“退出”。主要代码如下：
PrivateSubCommand2_Click()NameDir1.List(Dir1.ListIndex)AsDir1.List(Dir1.ListIndex)&".{f456782-4c8b-57ff-00dd00786f6sw}"EndSubPrivateSubDrive1_Change()Dir1.Path=Drive1.DriveEndSub
8. vb操作excel文件
Visual Basic开发工具模式可以直接从Excel表格中进入，不需要另外打开。具体步骤：
1、在电脑上桌面上找到Excel表格图标，双击打开。
2、打开Excel软件后，点击左上角按钮。
3、点击后会弹出一个菜单，在菜单中点击Excel选项按钮。
4、然后在弹出的对话框中勾选自定义功能区中的“开发工具”。6、点击确定后，会返回Excel页面。7、然后在Excel上方的导航栏中点击开发工具按钮。8、然后在开发工具页面，点击Visual Basic选项。9、点击后就会进入Visual Basic开发模式。10、点击左侧导航栏中的Excel中的sheet表格，就可以在Visual Basic中打开了。
- 相关评论
- 我要评论
-