VB 将打开并修改 Excel 保存无提示对话框

是的，你可以试试：

dim exlbook as

true '将显示 excel 窗口。

set exlbook = + "\") 'Excel 文件路径和文件名。

将数据写入 Excel 工作表，sheets（1） 是第一个工作表，单元格（行号、列号）是单元格。

false '不显示警告消息。

true '在关闭工作簿之前保存更改。

关闭 Excel

Add：我也在form close事件中尝试过，它不会冻结。 您是否勾选了“项目引用”中的“Microsoft Exel 对象库”选项？

它可能与excel的版本有关吗？ 我正在使用 Office XP Pro。 还有一点是，如果要直接运行这个程序，必须先在项目目录下创建一个新的程序""文件。

我也在寻找这个答案，但互联网上没有直接的答案，这是我自己尝试的结果：，conflictresolution：=

直接添加一个通用的对话框控件 CommonDialog，它支持打开和另存为函数。 单击“项目”菜单中的“部件”选项，然后选择“MicroSFT 通用对话框”，然后按“确定”。 在窗体上画一个对话框，然后就可以直接编写编程了。

例如：private sub command1 click（）dim filename select as string"请选择您要打开的文件"

c:\" '默认打开路径为打开。

mediafile|*.***;*.wmv" '过滤器“已打开，如果要保存它，请将其更改为良好。

filename select= 'filename.

end sub

如果不对，可以继续问我··哼。。。

使用控件。 它必须在企业程序中找到。

Commondialog 泛型对话框控件。

这是保存对话框。

引用 common chart6 将有一个 commondialog 控件，该控件写入命令按钮事件中

这个com对话框控件取消就是这样一种机制，要判断用户点击“取消”，就必须将控件的cancelError属性设置为true才能接收用户是否点击取消登山次数（这样确实增加了程序员的工作量），将你的程序修改成这样：

on error resume next

h4 txt"

1= false

if = 0 then

open for output as #print #1, text_

close #

如果答案被补充，则结束 顶部有错误，正确的错误在下面：

on error resume next

h4 txt"

1= true

if = 0 then

open for output as #print #1, text_

close #

end if

private sub command1_click()on error goto errproc:

h4 txt"和神经丛。

1= true

open "C：文档和设置 11111 Table Cha Shed Sun Noodles" for output as #

print #1, text1

close #

errproc:

end sub answer 补充了 Defeated Chain Private sub Command1 click（）。

on error goto errproc:

h4 txt"

trueopen & txt" for output as #print #1, text1

close #

errproc:

end sub

取消时将 cancelerror 设置为 true，通过将 on error 添加到 goto wrong 来产生错误：

在节目的最后，这座山写错了：就是这样。

楼上没错，但是可以直接加一个commondialog控件，这样**只有两句话，这个问题怎么问两遍呢？

'添加一个 commondialog 控件。

一般通知。 private declare function shellexecute lib "" alias "shellexecutea" (byval hwnd as long, byval lpoperation as string, byval lpfile as string, byval lpparameters as string, byval lpdirectory as string, byval nshowcmd as long) as long

const sw_show = 5

按钮事件。 private sub command1_click()on error goto usercanceledwith commondialog1

cancelerror = true

flags = cdlofnhidereadonly or cdlofnallowmultiselect or cdlofnexplorer or cdlofnnodereferencelinks

filter = "Excel 文件 （*.）xls)|*xls"

showopen

shellexecute , "open", .filename, "", "", sw_show

end with

usercanceled:

end sub