[英]VBA macro on excel to create a new folder on dropbox
我有一個小模塊,可以在其中使用用戶窗體將一些數據輸入excel數據庫。
我想向其中添加一個元素,當我單擊“提交”時,將在共享的保管箱驅動器上創建一個文件夾,其中包含我添加到用戶表單中的公司的名稱。
注意-保管箱帳戶也與其他2個用戶共享。 文件路徑為:
C:\\ Users [用戶] \\ nc Dropbox \\投資機會\\ 1。 公司
任何幫助,將不勝感激!
干杯!
碼
Private Sub Inisubmit_Click()
If Startup_Name.Value = "" Then
MsgBox "Enter Startup Name", vbExclamation, "Input Data"
Exit Sub
Else:
Dim LastRow As Long, ws As Worksheet
Set ws = Sheets("Summary")
LastRow = ws.Range("A" & Rows.Count).End(xlUp).Row + 1 'Finds the last
blank row
'Date input
ws.Range("A" & LastRow).Value = Format(Date, "mm/dd/yyyy")
'Source Input
If Events.Value = True Then
ws.Range("B" & LastRow).Value = Events.Caption
ElseIf Referral.Value = True Then
ws.Range("B" & LastRow).Value = Referral.Caption
ElseIf Direct.Value = True Then
ws.Range("B" & LastRow).Value = Direct.Caption
ElseIf Search.Value = True Then
ws.Range("B" & LastRow).Value = Search.Caption
End If
'Startup Info
ws.Range("AG" & LastRow).Value = sourcedetail.Value
ws.Range("AI" & LastRow).Value = Sector.Value
ws.Range("C" & LastRow).Value = Startup_Name.Value
ws.Range("H" & LastRow).Value = Startup_Location.Value
ws.Range("I" & LastRow).Value = Startup_Overview.Value
ws.Range("L" & LastRow).Value = funding_needed.Value
ws.Range("AD" & LastRow).Value = revenuebox.Value
'Round Check
If seed.Value = True Then
ws.Range("F" & LastRow).Value = seed.Caption
ElseIf seriesa.Value = True Then
ws.Range("F" & LastRow).Value = seriesa.Caption
ElseIf seriesb.Value = True Then
ws.Range("F" & LastRow).Value = seriesb.Caption
ElseIf SeriesC.Value = True Then
ws.Range("F" & LastRow).Value = SeriesC.Caption
End If
End If
End Sub
如何使用VBA在保管箱中添加新文件夾?
謝謝@rhyfewler!
該函數的工作方式如下:MkDir“ c:\\ TOTN \\ Examples”
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.