为国读书 2014-03-26 09:42 采纳率: 0%
浏览 945
已采纳

【vb编程】怎样把数据保存到excel中

小弟不会vb编程,特求大神给个demo,在此感谢! 下面是我在网上找到的例子,运行报错:

 

Dim ExcelApp As Object 

Private Sub Form_Unload(Cancel As Integer) 
Dim X As Integer 

X = MsgBox("是否保存更改?", vbYesNoCancel + vbExclamation, "VB 保存数据到中 Excel") 
If X = 6 Then '单击“是”则保存 
Set ExcelApp = CreateObject("Excel.Application") 
ExcelApp.Workbooks.Add 
With ExcelApp.ActiveSheet 
.Range("A1:J1") = Array(Text1(0).Text, Text1(1).Text, Text1(2).Text, Text1(3).Text, Text1(4).Text, Text1(5).Text, Text1(6).Text, Text1(7).Text, Text1(8).Text, Text1(9).Text) 
.Range("A2:J2") = Array(Text1(10).Text, Text1(11).Text, Text1(12).Text, Text1(13).Text, Text1(14).Text, Text1(15).Text, Text1(16).Text, Text1(17).Text, Text1(18).Text, Text1(19).Text) 
MyFileName = ExcelApp.GetSaveAsFilename(fileFilter:="Excel Files (*.xls), *.xls") 
.SaveAs MyFileName 
End With 
ExcelApp.Quit 
ElseIf X = 7 Then '单击“否”则不保存 
Cancel = 0 
Else '单击“取消”则不退出程序 
Cancel = 1 
End If 
End Sub
  • 写回答

1条回答 默认 最新

  • weixin_42691990 2014-03-27 02:34
    关注

    代码写的是不错的

    本回答被题主选为最佳回答 , 对您是否有帮助呢?
    评论
编辑
预览

报告相同问题?

悬赏问题

  • ¥15 全志t113i启动qt应用程序提示internal error
  • ¥15 ensp可以看看嘛.
  • ¥80 51单片机C语言代码解决单片机为AT89C52是清翔单片机
  • ¥60 优博讯DT50高通安卓11系统刷完机自动进去fastboot模式
  • ¥15 minist数字识别
  • ¥15 在安装gym库的pygame时遇到问题,不知道如何解决
  • ¥20 uniapp中的webview 使用的是本地的vue页面,在模拟器上显示无法打开
  • ¥15 网上下载的3DMAX模型,不显示贴图怎么办
  • ¥15 关于#stm32#的问题:寻找一块开发版,作为智能化割草机的控制模块和树莓派主板相连,要求:最低可控制 3 个电机(两个驱动电机,1 个割草电机),其次可以与树莓派主板相连电机照片如下:
  • ¥15 潜在扩散模型的Unet特征提取
手机看
程序员都在用的中文IT技术交流社区

程序员都在用的中文IT技术交流社区

专业的中文 IT 技术社区,与千万技术人共成长

专业的中文 IT 技术社区,与千万技术人共成长

关注【CSDN】视频号,行业资讯、技术分享精彩不断,直播好礼送不停!

关注【CSDN】视频号,行业资讯、技术分享精彩不断,直播好礼送不停!

客服 返回
顶部