1. vbs读取excel内容
参考如下：Worksheets("Sheetname").ActivateWorksheets("SheetName").Columns(1).Select Selection.NumberFormat = "@"
2. 用vbs把内容写入excel
1、确保csv文件是直接下载未经Excel修改过的，文件下载请使用浏览器另存为单线程下载方式，请勿使用其他下载工具下载。
2、新建Excel文档，选择数据=>自文本。
3、选择需要导入的csv文件。 注意查看文件预览中识别的字符是否正常。 5、设置csv数据分割方式，务必选择分隔符为逗号，文本识别符号为无。 6、设置各字段的数据类型，按CTRL或者SHIFT键和鼠标左键可同时选择多个列，如果有些超长数字（例如身份证号码）Excel识别错误的，必须选择文本类型。 7、完成导入，确认无误。
3. vb从文件中读取数据
要用到inet控件。public strData as string '这段可以返回服务器中的第一级目录名，保存在strData中， 如有多个文件夹名每个文件夹名会以空格分开。读取时判段一下。
Inet1.Execute
Inet1.URL, "dir """ & dirName & """" Do DoEvents Loop WhileInet1.StillExecuting
= True msgbox strData '这段是进入目录中，要想获得服务器中所有的文件夹名，就可以用递规的办法来获得。Inet1.Execute
Inet1.URL, "cd """ & dirName & """" Do DoEvents Loop WhileInet1.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中的帮助。4. vb调用excel数据
vb的数据导入到excel中去方法：
1、先打开控制面板-管理工具-打开数据源-系统DSN-添加驱动程序
2、这里要输入你想要连接的哪个服务器上的数据库
3、这里要输入数据库的帐户跟密码
4、然后一直点下一步，到这一步可以先测试能不能连到连据库
5、连接成功后、接下来就是用VB连接SQL SERVER、导入数据到EXCEL表格中
6、先打开EXCEL表-开发工具-点击命令按扭-在表格中随便拉开
7、先点开发工具里的--设计模式--然后双击按扭
8、打开按扭是这样的、如果按扭是英文名、可以在左边的地方设置中文，然后把下面的代码复制到中间这里
9、只要改这2行里的就行了、strcn='数据源；服务器地址；数据库名称；帐户；密码'
10、第2行就是改SQL语句了
11、修改EXCEL单元表格开始列、还有右边的修改数据库表里的字段名称
11、保存、然后返回EXCEL表格、点击查询、就可以了
5. vbs 读取excel
答:vbs给excel写入数据，并显示数据。1.使用PHPExcelparserPro软件,但是这个软件为收费软件;
2.可将Excel表保存为CSv格式,然后通过PHPmyadmin或者sqlyog导入,sqlyog导入的方法为:·将Excel表另存为CSv形式;·打开sqlyog,对要导入的表格右击,点击“导入”。
3.一个比较笨的手工方法,就是先利用Excel生成sql语句,然后再到mysql中运行,这种方法适用于Excel表格导入到各类sql数据库。
6. vb读取Excel
、在工程中引用Microsoft Excel类型库：从"工程"菜单中选择"引用"栏；选择Microsoft Excel 9.0 Object Library（EXCEL2000），然后选择"确定"。表示在工程中要引用EXCEL类型库。
2、在通用对象的声明过程中定义EXCEL对象：Dim xlApp As Excel.ApplicationDim xlBook As Excel.WorkBookDim xlSheet As Excel.Worksheet3、在程序中操作EXCEL表常用命令：
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象Set xlBook = xlApp.Workbooks.Open("文件名") '打开已经存在的EXCEL工件簿文件xlApp.Visible = True '设置EXCEL对象可见（或不可见）
Set xlSheet = xlBook.Worksheets("表名") '设置活动工作表xlSheet.Cells(row, col) =值 '给单元格（row,col）赋值xlSheet.PrintOut '打印工作表xlBook.Close (True) '关闭工作簿xlApp.Quit '结束EXCEL对象Set xlApp = Nothing '释放xlApp对象这是我收藏的，你试一下
7. vb操作excel文件
Dim excel As ObjectSet excel = CreateObject("excel.application") '设定 excel API'--------------这上面可不看 照抄excel.workbooks.Open ("C:\book.xls") 'P.s请先自己创立 'excel 开启excel.Visible = True 'excel 显示 or 隐藏 (True of Falseexcel.cells(1,2)="测试"text1 = excel.cells(1,2) 'text1 读取excel.ActiveWorkbook.Save 'excel 存档excel.quit 'excel 关闭
- 相关评论
- 我要评论
-