如何在MAC OS里使用Excel VBA选择文件夹路径及文件

z_hp · 发表于 2018-2-26 16:02

   请教个问题，如何在MAC OS里使用Excel VBA选择文件夹路径及文件？
   在Windows 操作系统里，浏览选择Excel文件的语句如下：

   Public Sub getSourceFile2()
               Dim sFileName As String
               sFileName = Application.GetOpenFilename("Excel Files(*.xlsx),*.xlsx", 0, "Select File", , False)
               ThisWorkbook.Worksheets("SelectFile").Cells(12, 9) = sFileName
   End Sub

      在Mac OS 里，却无法正常运行，想请教下在MAC OS里如何进行处理，实现此项功能？

ftgli · 发表于 2018-2-26 16:10

本帖最后由 ftgli 于 2018-2-26 16:11 编辑

没有mac....测试不了

huang1314wei · 发表于 2018-2-26 16:45

本帖最后由 huang1314wei 于 2018-2-26 16:57 编辑

请在你的mac电脑上安装windows系统，然后进入windows再来测试代码，mac os上还是放弃VBA吧，很多东西不支持，因为mac操作系统底层的东西不支持VBA

z_hp · 发表于 2018-2-27 10:05

谢谢回复，现在的问题是在Windows平台下是没有问题的，在单位的苹果电脑上是不允许安装Windows的，只能在苹果系统里进行作业。初步了解了下，Office for Mac 2011或2016 里也是有VBA的，但很多在Windows里很普通的处理，在Mac OS平台下都不支持，或许有类似的支持，只是网上很少能查到在MAC OS平台上的应用，而改用其它方式，采用Mac OS平台下的编程语言进行编程处理，似乎更麻烦，所以，还是再想想仍用VBA的方式如何进行处理。

wmqz.130 · 发表于 2018-2-27 10:06

没那么高级的东西....

陈坤sc · 发表于 2018-4-5 01:03

Open CurFilePath + "\" + CreateFileName + ".kml" For Binary As #1
  bByte = 239
  Put #1, , bByte
  bByte = 187
  Put #1, , bByte
  bByte = 191
  Put #1, , bByte
  这段代码是什么意思，我把windows下的代码移至到mac环境无法运行，出现访问路径错误

lsc900707 · 发表于 2018-4-5 06:29

陈坤sc 发表于 2018-4-5 01:03
Open CurFilePath + "\" + CreateFileName + ".kml" For Binary As #1
bByte = 239
Put #1, , bByte ...

去问MAC>>>>>>>>

高度保密 · 发表于 2018-4-5 10:35

一步一步来
第一步，你单位需要自动化办公，但是苹果达不到要求，所以更换操作系统。
第二步，你单位用苹果办公，应该也不是多缺钱，所以如果不愿意换操作系统，可以换电脑。
第三步，如果不愿意换电脑，说明你单位并不需要先进的办公方式，是苹果迷，而且还很死板，你可以换老板，或者换单位。

qie_zhenxi · 发表于 2018-12-22 09:49

高度保密发表于 2018-4-5 10:35
一步一步来
第一步，你单位需要自动化办公，但是苹果达不到要求，所以更换操作系统。
第二步，你单位用苹 ...

Mac 可以用AppleScript /JavaScript /Object-C 都是可以实现自动化的

乱馬 · 发表于 2021-11-1 16:17

高度保密发表于 2018-4-5 10:35
一步一步来
第一步，你单位需要自动化办公，但是苹果达不到要求，所以更换操作系统。
第二步，你单位用苹 ...

mac里用python，比如OS这个库去替代，简单操作用xlwings解决，VBA里的函数API用xlwings的.macro直接运行VB脚本来执行。这是我能想到的mac系统的最优解了

		自动登录	找回密码
密码			免费注册

[求助] 如何在MAC OS里使用Excel VBA选择文件夹路径及文件