macros：如何浏览excel文件并读取数据

我正在写3个步骤的macros脚本：

通过浏览读取excel文件 – 转换为xml格式 – 通过浏览将xml文件导出到某个path。 我知道如何通过浏览alrady导出。

Set objShell = CreateObject("Shell.application") Set objFolder = objShell.BrowseForFolder(0, "choose the path you want to export the xml file", 0, 0) 

但这一个是浏览文件夹。

如何浏览文件？ 如果我想通过浏览导入excel数据？

谢谢

Answer 1

要打开“打开文件”对话框，我使用以下内容：

 FileOpenName = Application.GetOpenFilename(fileFilter:="All files (*.*), *.*") 

那么你将需要关注打开文件

 Open FileOpenName For (Binary|Write) as #1 'Do writing operations here Close #1