請問一下!
我目前想做1個VBA的構想..
大概構想如下:
在A端電腦把VBA表格放在雲端上面,
且在B端電腦上可以開啟檔案做資料輸入的動作,
輸入完後按下新增按鍵後即可把此表格另存在A端的特定資料夾中,
目前的進度為在A端輸入資料案新增都是可以的..
但是不知如何透過雲端的方式及路徑的設定來達到此目的..
請各位大大教導一下,謝謝!!
(A和B端的電腦可能在不同縣市)
以下式儲存方面的程式:
Sub 複製工作表至新檔案()
Dim x, y, z, a As Integer
Dim myfile As String
Sheets(2).Copy
z = Year(Date)
x = Month(Date)
y = Day(Date)
ChDir "C:\高雄市\10月份\" '檢查哪個資料夾中是否有一樣的檔案
myfile = z & "年" & x & "月" & y & "日報表.xlsx"
'If x = 9 Then myfile = Format(Date, "mm-dd") & "報表.xlsx"
If x = 10 And y = 31 Then
MkDir "C:\高雄市\11月份\" '新增月份資料夾
ElseIf Dir(myfile) = "" Then '檢查資料夾中是否有一樣的檔案
ActiveWorkbook.SaveCopyAs "C:\高雄市\10月份\" & z & "年" & x & "月" & y & "日報表.xlsx"
Else
ActiveWorkbook.SaveCopyAs "C:\高雄市\10月份\" & z & "年" & x & "月" & y & "日報表-1.xlsx"
End If
ActiveWorkbook.Close False
End Sub