1. vb调用excel数据后,怎么使用

首先需要知道你要引用的数据在Excel中的位置，然后在VB里面引用Excel，然后打开Excel文件读数据Dim scxls As Excel.ApplicationDim scbook As Excel.WorkbookDim scsheet As Excel.Worksheet‘Set scxls = CreateObject("excel.application")‘Set scbook = scxls.Workbooks.AddSet scbook = scxls.Workbooks.open("c:\1.xls"

)Set scsheet = scbook.Worksheets(1)‘scsheet.Cells(1, 2) = "1111" ’写入数据a=scsheet.Cells(1, 2) '读取数据Set scbook = NothingSet scxls = Nothing‘scxls.Visible = True ’显示Excle数据较多，且有规律可循时，请使用循环语句

2. vba调用

1、把图片放在某个文件夹内。

2、用VBA程序读取这个文件夹的文件。

3、把图片在相应的控件显示。

3. vb调用excel

首先在打开的WPS表格文件中点击工具栏中的“开发工具”选项。

2.进入“开发工具”选项卡中选择“查看代码”的选项按钮。

3.即可打开VB编辑器,在左侧的导航栏中选择需要查看代码的表格对象。

4.选择后在页面中间的代码窗口就可以查看到对应的代码了。

5.以E列为例，筛选大于或等于1000的，然后我们需要点击确定。

6.最后会出现E组符合的结果，WPS excel就可以可以查看代码了。

4. vb 调用exe

调用Shell函数加上要执行bat, exe的路径字符串Shell "C:\123.exe"Shell "D:\xxxx\yyyy\fff.bat"

5. vb调用vba

好吧，我来拿分，

VB6.0或者VBA中，对话框的命令是：Application.FileDialog(msoFileDialogOpen)

括号里的参数有几个，其中有另存为。。。等。

例子啊：

DimDia1AsObject‘定义一个变量

SetDia1=Application.FileDialog(msoFileDialogOpen)’变量设置为对话框

Dia1.Show‘这就打开了一个“打开文件”对话框了。

如果你想设置其他的，比如窗口名字，筛选文件类别等，就只是用Dia1里的属性就行了。

什么，title啦，filters(筛选文件类别)等等。。。

如果是.net，就不是这个啦，不过也差不多，同样也是一个dialog，我猜你用command1应该是6.0吧。

给分给分~~~

6. vba调用excel数据

sub test()Set cnn = CreateObject("ADODB.Connection") Set rs = CreateObject("Adodb.Recordset")strCn= "Provider=sqloledb;Server=R9HDET7;Database=dbname;Uid=username;Pwd=password" cnn.Open strCn SQL = "" cnn.Open strCn '与数据库建立连接，如果成功，返回连接对象cn rs.Open SQL , cn '执行strSQL所含的SQL命令，结果保存在rs记录集对象中 cnn.Close Set cnn = Nothingend sub

请参考

连接数据库后，通过写SQL语句实现增删改查

7. vb函数调用

1、打开VB-》在form1上增加一个command1按钮，双击command1按钮，把以下代码放入窗体内；

2、运行前，在菜单的选“工程”->“引用”->找到MicrosoftExcel12.0ObjectLibrary->确定；然后才可以运行；

3、代码如下：DimExAppAsNewExcel.ApplicationDimExbAsExcel.WorkbookDimExshAsExcel.WorksheetDimarr(6,6)AsInteger'定义一个二维数组，数据类型为整数ExApp.Workbooks.Open"c:\book1.xls"'打开EXEL文件，路径和文件名自己根据实际修改SetExb=ExApp.Workbooks(1)SetExsh=Exb.Worksheets("Sheet1")Fori=1To6'假设是读取A1:F6的6X6区域数据Forj=1To6arr(i,j)=Exsh.Cells(i,j)NextjNexti'把自己需要对数组数据进一步处理的部分加进去...ExApp.Workbooks.CloseExApp.QuitSetExApp=Nothing

8. vb如何调用excel数据

打开excel2003，其它版本的软件，比如EXCEL2013，方法一样。(具体步骤：“开始”-“程序”-“microsoftoffice2003”-“excel2003";或者如果桌面上有快捷方式的话直接双击打开。点击“数据”菜单，选择“选择外部数据”，打开“导入数据”对话框。

9. vb怎么调用excel单元格内容

1.在Excel表格表格的菜单栏上面点击【开发工具】，【Visual Basic】打开VBA编辑器。

2.在VBA编辑器的菜单栏上面点击【插入】，【模块】。

3.在代码框里面输入一下代码：

Sub MatchIput()

Dim i, j, m, k As Long '数据类型定义

Dim msg, style, title, ans

On Error Resume Next '如果运行过程中出错，则忽略

Set mysheet1 = ThisWorkbook.Worksheets("Sheet1") '定义工作表

Set mysheet2 = ThisWorkbook.Worksheets("Sheet2") '定义工作表

msg = "该用户信息已经存在，是否替换？"

style = vbYesNoCancel + vbDefaultButton3 '显示 “是” “否” “取消”三个按钮

title = "温馨提示"

m = Application.WorksheetFunction.Match(mysheet1.Cells(2, 2), mysheet2.Range("A1:A1000"), 0)

'计算单元格所在的位置

If m >= 1 Then '如果数据表里面已经存在，则弹出提示窗口，然后进行选择

ans = MsgBox(msg, style, title) '弹出提示

If ans = vbYes Then '如果选择“是”，则原来表格里面的数据将会被替换

For j = 1 To 4 '填充该单元格所在位置的1-4列

mysheet2.Cells(m, j) = mysheet1.Cells(j + 1, 2)

Next

End If

If ans = vbNo Then '如果选择“否”，则在原来表格里面找到空白的单元格写入

For k = 2 To 1000

If mysheet2.Cells(k, 1) = "" Then

For j = 1 To 4

mysheet2.Cells(k, j) = mysheet1.Cells(j + 1, 2)

Next

Exit For

End If

Next

End If

Else '如果不存在，则在原来数据表格里面找到一行空白进行填充

For k = 2 To 1000

If mysheet2.Cells(k, 1) = "" Then

For j = 1 To 4

mysheet2.Cells(k, j) = mysheet1.Cells(j + 1, 2)

Next

Exit For

End If

Next

End If

End Sub

4.回到Sheet1工作表界面，点击菜单栏上面的【插入】，在形状里面选择“矩形”插入到表格上面，然后填充所需的颜色、文字。

5.在已经绘制后的矩形图上面单击右键，选择“指定宏”。

6.在“指定宏”对话框里面选择已经编写的VBA名称，如：MatchIput。

7.在要录入信息的区域录入信息，然后点击“录入”即可录入信息。

8.如果录入的信息（姓名）在原来的表格在原来表格里面已经存在，则会弹出提示信息，之后进行选择。如果选择“是”则执行替换原来的信息；如果选择“否”，则会新增一行信息；如果选择“取消”，则不会录入信息。

10. vbs调用excel

谢邀。用VBS就可以了。假设有3个Excel SpreadSheet，每一个WorkBook的第一个Sheet的A1单元格都有一个数。calc.vbs可以将这些数字加起来，然后写到sum.xlsx里面。calc.vbs的内容：