MAC上如何自动导入对应的工作表

听风晚

Windows是已经写好了能用的 把系统时间改成 YY.M.DD 代码如下

1. Sub autodaoru()
   
2.     Application.DisplayAlerts = False
   
3.     Application.ScreenUpdating = False
   
4.     Dim cuDate As String
   
5.     Dim wb As Workbook
   
6.     cuDate = Date
   
7.     Arr1 = Array("de", "fr", "it", "es", "de库存", "de预留", "de库龄")
   
8.     Arr2 = Array("销售情况_DE", "销售情况_FR", "销售情况_IT", "销售情况_ES", "库存情况", "预留库存", "库龄")
   
9.     For i = 0 To 6
   
10.         ThisWorkbook.Sheets(Arr2(i)).Cells.Clear
    
11.         LJ = "C:\Users\Administrator\Desktop\Super Browser\Khanka-EU-Administrator\表格记录" & cuDate & "" & Arr1(i)
    
12.         Set wb = GetObject(LJ & ".csv")
    
13.         With wb.Sheets(Arr1(i)).Range("A1").CurrentRegion
    
14.             Sheets(Arr2(i)).Range("A1").Resize(.rows.Count, .Columns.Count) = .Value
    
15.         End With
    
16.         wb.Close False
    
17.     Next
    
18.     MsgBox ("导入完成")
    
19. End Sub

复制代码

但是在 Mac上无法运行  Mac上的 Date 无法使用 用的是cuDate = Split(CDate(Now), " ") ， 但是到了GetObject 说找不到文件，路径是对的，是直接吧文件丢到终端上复制的，不会错。有大佬帮忙修改一下嘛 Mac和Windows都能用的

思路是先删掉对应的工作表，然后再导入，

zpy2

        LJ = "C:\Users\

据我所知，mac根目录是/

听风晚

zpy2 发表于 2023-3-16 11:45
LJ = "C:%users\

据我所知，mac根目录是/

路径是对的，问题出在 GetObject那，