如何在EXCEL点击保存时弹出自定义弹窗，如何写代码？

如题：如何在EXCEL点击保存时弹出自定义弹窗，如何写代码？VBA

第1个回答 2013-07-16

procedure　TForm1．btnExcelClick（Sender：　TObject）；var　ExcelApp：　Variant；begin　　ExcelApp　：＝　CreateOleObject（＆＃39；Excel．Application＆＃39；）；　　ExcelApp．Visible　：＝　True；　　ExcelApp．Caption　：＝　＆＃39；应用程序调用　Microsoft　Excel＆＃39；；　　ExcelApp．WorkBooks．Open（　＆＃39；e：＆＃92；test＆＃92；test．xls＆＃39；　）；　　ExcelApp．WorkSheets［＆＃39；sheet1＆＃39；］．Activate；　　ExcelApp．Cells［1944］．Value　：＝　＆＃39；第一行第四列＆＃39；；　　ExcelApp．ActiveWorkBook．save；　　ExcelApp．ActiveWorkBook．Saved　：＝　True；　　　＆＃47；＆＃47；新加的，设置已经保存　　ExcelApp．Quit；end；追问

这个不能用在EXCEL中的

相似回答

如何在excel中做出一个弹出框答：01 首先我们打开一个excel，这里我们建议使用office excel，因为wps的excel开发工具中的VBA是灰色的，还需要我们下载相关的插件，如下图所示：02 接着我们在最上边的菜单栏中找到开发工具，然后找到Visual Basic，我们点击一下，就会出现一个新的页面，如下图所示：03 ...

...EXCEL后进行保存,弹出消息框,如何不让消息框弹出,请写代码答：ExcelApp.Caption := '应用程序调用 Microsoft Excel';ExcelApp.WorkBooks.Open( 'e:\test\test.xls' );ExcelApp.WorkSheets['sheet1'].Activate;ExcelApp.Cells[1,4].Value := '第一行第四列';ExcelApp.ActiveWorkBook.save;ExcelApp.ActiveWorkBook.Saved := True; //新加的,设置已经保存 E...

大家正在搜

android自定义弹出框 android弹出框自定义按钮软件安装不弹出自定义安装安卓弹出自定义对话框自定义弹窗 ios的弹出框自定义 js自定义弹出层 android自定义弹窗安卓开发自定义弹窗