关于VB保存语句的运用

答案:3 悬赏:80 手机版

解决时间 2021-02-24 01:10

提问者网友：两耳就是菩提
2021-02-23 18:07

关于VB保存语句的运用

最佳答案

五星知识达人网友：忘川信使
2021-02-23 18:17

在代码首尾分别加
Application.DisplayAlerts = False
Application.DisplayAlerts = True
追问这是我的程序有没有错误，应该把代码加在哪里
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim a(100, 100) As String
Set xlApp = CreateObject("Excel.Application")追答开头与结尾部分。如下

Application.DisplayAlerts = False
Dim xlApp As Excel.ApplicationDim xlBook As Excel.WorkbookDim xlSheet As Excel.WorksheetDim a(100, 100) As StringSet xlApp = CreateObject("Excel.Application")
。
。
。
Application.DisplayAlerts = True追问抱歉，无法达到我的要求追答我可以用！追问也许是我程序或者别的什么问题，你这代码加上之后，程序运行没有变化（和我之前一样），而我运行之后要打开excel表查看的话也无法打开，需要重启电脑才行。打开后excel表显示程序没有完成预期的运行结果

全部回答

1楼网友：雾月
2021-02-23 20:40

如果保存时可以覆盖原来的文件，可以先删除原文件，再存新文件，如下代码:
On Error Resume Next
Kill "C:\2.xlsx"
xlBook.SaveAs "C:\2.xlsx"追问你这个代码是要分开吗？按你的代码，删除一个excel表，再建一个，我的意思程序运行，我新建一个excel表，往里面存数据，存完了保存，下次再运行程序时，新建excel表替换上一次的excel表，再进行一遍这样的过程

2楼网友：西风乍起
2021-02-23 19:46

app．path就是你的程序所在的文件夹＆＃92；前后不要有空格04还少了两个＆amp；39修改如下SavePicture　Picture1．Image　App．Path　＆amp；　＆quot；＆＃92；结果＆＃92；＆quot；　＆amp；　wjianming　＆amp；　＆quot；＆＃92；＆quot；　＆amp；　ganming　＆amp；　＆quot；＆＃92；＆quot；　＆amp；　＆quot；11．jpg＆quot；

我要举报

如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！