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