Question

我有一个宏，可以在Onedrive上打开文件。如果我当前已连接到Internet，则宏运行得很好。从互联网上断开连接后，即使我引用本地驱动器的路径，宏也无法打开文件。例如

library(dplyr)
mydata2 %>%
  mutate(drop=ifelse(is.na(drop),0,drop)) %>%
  arrange(id,-drop,year*(2*drop-1)) %>%
  group_by(id) %>%
  slice(1) %>%
  select(id,age,gender,didDROP=drop,dropYEAR=year)

# A tibble: 6 x 5
# Groups:   id [6]
     id   age gender didDROP dropYEAR
  <dbl> <dbl>  <dbl>   <dbl>    <dbl>
1     1    15      0       1     2010
2     2    17      0       1     2012
3     3    17      1       0     2014
4     4    16      1       1     2012
5     5    14      1       0     2014
6     6    15      0       0     2014

Answer 1

使用ENVIRON检索当前用户文件夹或本地OneDrive文件夹。

Set wdApp = New Word.Application
'make word Visible'
wdApp.Visible = True
wdApp.Activate
'open File'
wdApp.Documents.Open environ("OneDrive") & "\file.dotx"

默认情况下，本地OneDrive文件夹应为用户文件夹中的顶级文件夹。

Set wdApp = New Word.Application
'make word Visible'
wdApp.Visible = True
wdApp.Activate
'open File'
wdApp.Documents.Open environ("USERPROFILE") & "\OneDrive\file.dotx"

打开命令窗口，然后在命令提示符下键入SET以查看当前的环境变量。在系统小程序中的“系统摘要”，“软件环境”，“环境变量”下也可以找到完整的env vars。

如果我没有互联网连接，如何使用VBA在Onedrive上打开文件？

1 个答案: