Макрос VBA в Excel для создания новой папки в Dropbox - PullRequest
Новая
       14

Макрос VBA в Excel для создания новой папки в Dropbox

0 голосов
/ 06 марта 2019

У меня есть небольшой модуль, где я делаю некоторый ввод данных в базу данных Excel, используя форму пользователя.

Я хочу добавить к нему элемент, который при нажатии кнопки «Отправить» создает папку на общем разделяемом диске с именем компании, которую я добавил в свою пользовательскую форму.

Примечание.Аккаунт dropbox является общим для двух моих пользователей.Путь к файлу будет:

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

Как добавить новую папку в Dropbox с помощью VBA?

1 Ответ

0 голосов
/ 08 марта 2019

Спасибо @rhyfewler!

Функция работает следующим образом: MkDir "c: \ TOTN \ examples"

...