Sub test_hello()
MsgBox "hello"
End Sub
这个文件中的模块是被调用的对象。
再建立一个Excel文件,创建下面的宏用来调用上面的对象。
Sub test_calling()
Dim xl_wb As ExcelWorkbook
Dim xl_wb_name As String
With ApplicationFileDialog(msoFileDialogFilePicker) '使用文件对话框选取要调用宏所在的文件
AllowMultiSelect = False
If Show = -1Then
xl_wb_name =SelectedItems(1)
End If
End With
调用程序:
Sub openfile()
WorkbooksOpen ("被调用文件xls")
Workbooks("被调用文件xls")Sheets("Sheet1")test
End Sub
被调用文件,Sheet1代码:
Public Sub test()
Beep
End Sub。
excel中数字为外部链接的函数一点击就d出文件解决方法如下:
1、当d出数据链接属性窗口时,先关闭掉这一窗口,然后把界面切换到桌面,这样excel程序就是最小化了,然后鼠标右键刷新下桌面(或者按住F5刷新)。刷新几次后再回到excel的界面重新 *** 作一遍数据链接的步骤即可。通过这一方法可以解决大部分d出属性窗口d出的问题。
2、桌面刷新的次数不设限制,可以多刷新几次,若刷新后切换回excel还是不行那么也可以重复几次上面的 *** 作。
对Excel插件的开发,目的是在工具栏中添加一个外部程序,点击这个外部程序,可以将当前的Sheet数据获取到并保存到另外一个sheet里面;主要注意两方面:
一、Excel插件外部程序建立向导,具体步骤是:
>
1、创建连接到excel应用的ole对象
OleObject ole_excel
ole_excel = create OleObject
If ole_excelConnectToNewObject("ExcelApplication") > 0 Then
MessageBox('连接到Excel错误','请确认是否已经安装了Excel!',Exclamation!)
Destroy old_excel
Return
End If
2、打开指定的excle文件
ole_excelApplicationWorkbooksOpen("excel文件")
3、 *** 作excel单元格
excel单元格有一系列的 *** 作,它们的使用格式一般如下:
ole对象ActiveWorkBookSheets("工作表名") *** 作对象动作或属性
SP_CONFIGURE 'SHOW ADVANCED OPTIONS',1
RECONFIGURE
EXEC SP_CONFIGURE 'Ad Hoc Distributed Queries',1
RECONFIGURE
插入的代码:
INSERT INTO dboResources(ResourcesUrl,ResourcesLink,ResourcesText) SELECT FROM OPENROWSET('MicrosoftJetOLEDB40',
'Excel 80;HDR=YES;Database=F:\Book1xls', [sheet1$])
以上就是关于如何用excel宏打开另一个excel文件全部的内容,包括:如何用excel宏打开另一个excel文件、excel中数字为外部链接的函数一点击就d出文件、如何用C#开发Excel扩展插件等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)