问题描述
Sub Créerunduplica()
Dim extension As String
Dim chemin As String,nomfichier As String
Dim style As Integer
extension = ".xlsm"
chemin = "D:\NAP\04-Dossiers clients\"
nomfichier = ActiveSheet.Range("b1") & "_" & Range("b3") & "_" & Range("d3") & "_" & Format(Now,"yyyymmdd hh""h""mm") & "_Calcul corp" & extension
With ActiveWorkbook
.SaveAs Filename:=chemin & nomfichier
End With
End Sub
此代码将文件保存在本地路径“ chemin”(路径)中,但我希望它将文件保存在Google驱动器中。
这可能吗?怎么做?
解决方法
我已经做到了,但是有了OneDrive,它已经安装了一个应用程序,就像您PC上的本地目录,我认为Drive,也像本地目录一样,您只需使用目录具有该文件夹的文件,然后将其加载到该文件夹中,然后进行同步,虽然效果不是很好,但是可以。