vbs向其他软件导入excel数据(vbs读取excel数据)

1. vbs读取excel数据

先要搞清楚是在DOS下运行，还是在windows下运行命令行窗口 执行bat，如果是后者。基本思路就是 bat+vbs，然后构建访问Excel对象访问xls/xlsx文件，读取，然后写txt罢了。分步搜索上面的知识点，合并使用，就是最终需求。

2. vbs 读取excel

只有这样做。如果会编程，可以编写一个程序来依次打开所有文件搜索指定内容，用VBS、VBA都可以编写，EXCEL VBA编写可能更方便，但是扫描子文件夹需要递归，编写这样的程序需要一些时间。

3. vb访问excel数据库

以下为关键部分'打开Set sf1 = CreateObject("Excel.Application")sf1.Workbooks.AddSet sf2 = sf1.Workbooks(1)Set sf3 = sf2.ActiveSheet'作图 Range("A1:E5").Select Charts.Add ActiveChart.ChartType = xl3DColumn ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A1:E5") ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1" ActiveWindow.Visible = False‘第二个图 Charts.Add ActiveChart.ChartType = xl3DPieExploded ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A1:E5"), PlotBy:= _ xlRows ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1" Windows("Book1").SmallScroll Down:=-9 ActiveWindow.Visible = False

4. vb向excel写入数据

首先需要知道你要引用的数据在Excel中的位置，然后在VB里面引用Excel，

然后打开Excel文件读数据

Dim scxls As Excel.Application

Dim scbook As Excel.Workbook

Dim scsheet As Excel.Worksheet

‘Set scxls = CreateObject("excel.application")

‘Set scbook = scxls.Workbooks.Add

Set scbook = scxls.Workbooks.open("c:\1.xls")

Set scsheet = scbook.Worksheets(1)

‘scsheet.Cells(1, 2) = "1111" ’写入数据

a=scsheet.Cells(1, 2) '读取数据

Set scbook = Nothing

Set scxls = Nothing

‘scxls.Visible = True ’显示Excle

数据较多，且有规律可循时，请使用循环语句

5. vb6读取excel中内容

VB6直接读取WPS的电子表格的数据是不行的。但可以读取Excel的表格数据。你只要将WPS的表格存为EXcel表格即可。

6. vbs 读取文件

点击开始——运行 输入CMD 打开命令提示符 输入 assoc .vbs=vbsfile assoc后有一个空格 就行了

7. vb 获取excel单元格数据

返回应用程序完整路径

Application.Path

返回当前工作薄的路径

ThisWorkbook.Path

返回当前默认文件路径：

Application.DefaultFilePath

Application.ActiveWorkbook.Path 只返回路径

Application.ActiveWorkbook.FullName 返回路径及工作簿文件名

Application.ActiveWorkbook.Name 返回工作簿文件名

8. vb6.0读取excel

可对Ole控件关联对象的Excel表格的单元格的Value属性赋值来写入VB已读到的数据。

Value属性，返回或设置一个Variant型数，它指定该属性之值，此属性可读/写。

以下是实现代码：

9. vb读取数据库

用LISTVIEW的ListItems.Count属性获取LISTVIEW中的数据条数

用LISTVIEW的ListItems.Item(Index).Text获取第Index条数据的数据内容

利用循环依次读取即可:

forltp=1tolistview.ListItems.Count

strData=listview.ListItems.Item(ltp).Text

next

===========================================

其他列的读取为

strData1=listview.ListItems.Item(ltp).SubItems(n)

其中N的值就是除了第一列之后的列号,它的起始计数是1,

10. vb中读取excel中的数据

首先，工程－引用microsoftExcel11.0)bjectLibrary然后代码如下：

DimxlAppAsObjectDimxlBookAsObjectSetxlApp=CreateObject("Excel.Application"

)SetxlBook=xlApp.Workbooks.AddWithxlAppxlApp.Visible=False.Rows(1).Font.Bold=True'设置第一行为粗体.Cells(10,10).Value＝"姓名".Application.Visible=TrueEndWithSetxlApp=NothingSetxlBook=Nothing如想了解其他操作excel的代码，可以在excel中，点击菜单的工具——宏——录制新宏。

然后你手动对excel操作，操作完成后停止录制。

再点击工具——宏——visualbasic编辑器，找到刚才录制的宏，就可以看到刚才对excel所做的操作对应的vb代码了。

顶一下

(0)

0%

踩一下

(0)

0%