1. vb怎么将数据导入到excel中
可以自定义一个工具按钮，然后指定宏！如果要插入菜单的话，也可以写个增加自定义菜单的宏，把宏绑定到菜单项。
2. vb将数据写入excel单元格中
在视图中打开本地窗口，然后按f8键一句一句执行，可以在本地窗口中看到每一步执行的结果。如果有什么问题可以进行调整。
3. vb如何导入数据
把excel另存为csv,然后用load data infile进行导入,,就可以了
4. vb怎么导出exe文件
从语法上来说，两者近乎完全相同从编辑工具上来说，
VBA 的编辑工具相对落伍一点
VB 的编辑工具则更智能一些
从使用方法上来说VBA 需要在应用程序内运行，拿Excel来说，你必须打开一个Excel文档，然后才能执行文档里的VBA代码
VB 则不需要，你可以生产自己的exe文件去执行
从功能上说VBA 是针对某个特定的应用开发的特定语言，比如VBA for Excel，就是专门为Excel开发的编程语言，所以，如果想要对某个特定的应用执行大量的，复杂的自动化操作，那么VBA就非常合适，因为应用里的绝大部分功能都可以通过VBA来操作
VB 相对于VBA来说，去操控某一个特定的应用就没有相应的VBA灵巧，所以更适用于去完成一些不需要与其他应用有太多交互的任务
5. vb中如何导入一个表格
vb的数据如何导入到excel中去？
vb的数据如何导入到excel中去？
2个回答808阅读
做一个俗人去吧
2023-01-11•Ta已获得271赞同
关注
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表格、点击查询、就可以了
6. 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.如果录入的信息（姓名）在原来的表格在原来表格里面已经存在，则会弹出提示信息，之后进行选择。如果选择“是”则执行替换原来的信息；如果选择“否”，则会新增一行信息；如果选择“取消”，则不会录入信息。
- 相关评论
- 我要评论
-