1. vbs读取excel内容
谢邀。用VBS就可以了。假设有3个Excel SpreadSheet，每一个WorkBook的第一个Sheet的A1单元格都有一个数。calc.vbs可以将这些数字加起来，然后写到sum.xlsx里面。calc.vbs的内容：
2. vb调用excel数据
Set xlApp = CreateObject("Excel.Application") '创建excel应用程序,打开excel2003 Set xlBook = xlApp.Workbooks.Open(App.Path & "\文件名.xls") '打开已经存在的EXCEL工件簿文件 Set xlSheet = xlBook.Worksheets("表名") '设置活动工作表 for n=1 to 行数 for m=1 to 例数 msgbox xlSheet.Cells.Item(n, m) '注意：我只是告诉你一个循环把你要的内容都读出来，你要拿我的程序去运行会弹死你的 next next
3. vb读取Excel
用SQL语句，将表导出为EXCEL。
SELECT
字段表
INTO
[Excel
8.0;database=D:\temp\200803.XLS].Data
FROM 表
4. vb从文件中读取数据
用Open打开文件，然后用Line行读取即可。代码如下：
5. 用vbs把内容写入excel
多喽。
先说启动，一双击桌面的Excel快捷图标；二单击程序菜单里的图标；三进入Excel的安装文件夹，找到Excel.exe,双击运行；四，将Excel的桌面快捷图标拖动到程序文件夹的启动中，系统启动时让它与系统一起自动启动；五写一个批处理文件，内容是调用Excel.exe，双击此批处理文件启动它；六写一个VBS文件……不说了。
6. vbs读取excel数据
1、右击开始，点击命令提示符（管理员）。
2、输入：cd office的安装位置如：cd C:\Program Files\Microsoft Office\Office16点击回车。
3、接下来输入：cscript ospp.vbs /dstatus，点击回车。
4、复制其中的SKY ID输入：slmgr /xpr SKYID。
7. vbs 读取文件
〔emmm其实我这个也不算用的vb〕
1 新建一个记事本
2 在记事本里用msgbox或inputbox语句写几句（除了你想打的文字，其他都用西文哦）
3 保存后更改文件格式为.vbs（没有显示原来的格式的话，就勾上我的电脑-查看-文件扩展名）
我目前只会这个最简单的对话框啦 以后学了再给我家那位发哈哈哈
8. 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
9. vbs获取excel单元格内容
1、同时按下“win+R”键，在打开的运行对话框中输入“excel”回车，打开一个新建的excel文档。
2、在打开的excle窗口，依次点击工具栏“开发工具”——“VisualBasic”或直接按快捷键“ALT+F11”,打开VB编辑器。
3、双击左侧工程窗口中的“sheet1”，打开“sheet1”代码编辑窗口。
4、在代码窗口的下拉框中，分别选择“Worksheet”、"SelectionChange",下面会自动生成相应的过程块代码。
5、在过程中写入代码：If(Target.Columns.Count=Sheet1.Columns.Count)And(Target.Row<=Range("b4").Row)And(Target.Row+Target.Rows.Count>Range("b4").Row)ThenMsgBox"yes" Else MsgBox"no" EndIf6、再回到excel窗口，测试一下代码是否能够正确运行，可以看到结果很成功。
- 相关评论
- 我要评论
-