vba批量生成文件夾技巧

① 用VBA如何批量將工作表保存到指定的文件夾

用vba保存到指定的文件夾，這種情況下，我們就是在電腦上先建立一個文件夾，然後上傳保存就可以了

② vba操作文件夾

Sub 拷貝文件夾()

On Error Resume Next

Set fs = CreateObject("Scripting.FileSystemObject")

For i = 2 To 100

If Cells(i, 1) = "" Then Exit For

OldString = "路徑說明書"

NewString = "路徑" & Cells(i, 1) & "說明書"

fs.Copyfolder OldString, NewString

Set fs = Nothing

Next

End Sub

③ 如何利用Excel批量生成指定名稱的文件夾

Excel可以利用VBA批量生成制定名稱的文件夾

軟體版本：Office2013

方法如下：

1.A列有如下內容，根據其生成對應的文件夾：

④ 求助，用vba實現自動批量復制並修改保存文件

代碼在文件模塊里，或把以下代碼粘到模塊里

Sub 寫入數據()

wbpath = ThisWorkbook.Path & ""

模板文件地址 = wbpath & "模板文件" & ""

到文件夾 = wbpath & "生成表格復制到該文件夾" & ""

my_file = Dir(模板文件地址)

Do While my_file <> ""

Workbooks.Open Filename:=模板文件地址 & my_file

With ThisWorkbook

data_row = .ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row

For i = 2 To data_row

If Val(.ActiveSheet.Cells(i, 4)) = Val(Split(ActiveWorkbook.Name, ".")(0)) Then

ActiveWorkbook.ActiveSheet.Range("F2") = .ActiveSheet.Cells(i, 3).Value

ActiveWorkbook.SaveAs Filename:=到文件夾 & .ActiveSheet.Range("B" & i) & ".xlsx"

ActiveWorkbook.Close False

End If

Next i

End With

my_file = Dir

Loop

End Sub

⑤ Excel怎樣批量提取文件夾和子文件夾所有文件

主要的方法有：
一、編程的方法，如Excel自帶的VBA，以及其他編程方法，如Python
二、Excel自帶的Power Qurey數據處理工具，Excel2010以上版本支持，但2010和2013要另外下載安裝，而2016以上版本安裝後就已默認安裝。
新建一個Excel工作簿，在工作簿的工作表中，數據菜單——獲取和轉換數據——獲取數據——來自文件——從文件夾，瀏覽到要提到文件名的文件夾，打開。就會把文件夾（包括子文件夾）下的所有文件導入到一個預覽對話框中，對話框中已可預覽到每個文件的文件名及各種文件屬性，如創建時間、完整路徑等。在此對話框中，選擇「轉換數據」（Excel版本不同，對話框稍有不同，但大同小異），進入到Power Qurey界面，在PQ界面工作界面中，刪除不需要的列，如果文件名不需要擴展名，就對文件名以小數點為分隔符拆分，再刪除擴展名列。反正你想怎麼整就怎麼整。整好後，從PQ的文件菜單中選擇關閉並上載到，上載到目錄工作表中。
以後文件夾內文件有增減變化，或文件名有修改，只要在工作表中右擊，選擇「刷新」即可得到更新。
Power Qurey的方法簡單快捷，基本上就點幾下滑鼠。不需要去這編程語言。按上面說的步驟一步步去操作，任何只要對Windows資源管理器有些了解，對Excel有基本了解的人都能完成。
三、DOS時代的方法，度友「二性北B」有介紹。

⑥ 如何在Excel中用VBA創建文件夾

方法/步驟

1

方法1:使用VBA的MkDir語句創建文件夾。

代碼如下：

Sub xyf()

On Error Resume Next

VBA.MkDir ("c:/例子")

End Sub

其中 VBA.MkDir ("c:/例子")表示在C盤創建一個名為「例子」的文件夾

On Error Resume Next語句表示如果已經有這個文件夾，則不創建。

如下圖所示：

⑦ 如何利用excel批量創建指定名稱的文件夾

工具：Office2013

方法如下：

1.在當前Excel文件所在文件夾中，創建以A列內容為名稱的文件夾：

⑧ 如何使用excelVBA在指定路徑下批量新建指定文件夾

Sub GetFolder()
Dim FolderName, FileName, MyFolder, MyFile As String
FolderName = "abc"
FileName = "abc.xls"
MyFolder = Dir("D:\" & FolderName, 16)
MyFile = Dir("D:\" & FolderName & "\" & FileName, 16)
If MyFolder <> "" Then
MsgBox "The folder is OK"
Else
MkDir "D:\" & FolderName
End If
If MyFile <> "" Then
MsgBox "The File is OK"
Else
Open "D:\" & FolderName & "\" & FileName For Output As #1
Close #1
End If
End Sub

⑨ vba如何自動創建文件夾

給你一個最簡單的方法
Sub program
If Dir("F:\" & Format(Date, "YYYY-M-D"), vbDirectory) <> "" Then
MsgBox "文件夾存在"
Else
MsgBox "文件夾不存在!,系統將創建一個名為" & Format(Date, "YYYY-M-D") & "的文件夾"
MkDir "F:\" & Format(Date, "YYYY-M-D")
End If
End Sub

日期的格式可以自己該

⑩ vba生成excel文件

使用vba生成一個excel 文件，可以使用以下方法：

1 Workbooks.Add 方法
1.1 語法
新建一個工作表。新工作表將成為活動工作表。
語法
表達式.Add(Template)
表達式 一個代表 Workbooks 對象的變數。
參數
名稱 必選/可選 數據類型 說明
Template 可選 Variant 確定如何創建新工作簿。如果此參數為指定現有 Microsoft Excel 文件名的字元串，那麼創建新工作簿將以該指定的文件作為模板。如果此參數為常量，新工作簿將包含一個指定類型的工作表。可為以下 XlWBATemplate 常量之一：xlWBATChart、xlWBATExcel4IntlMacroSheet、xlWBATExcel4MacroSheet 或 xlWBATWorksheet。如果省略此參數，Microsoft Excel 將創建包含一定數目空白工作表的新工作簿（該數目由 SheetsInNewWorkbook 屬性設置）。
返回值
一個代表新工作簿的 Workbook 對象。
說明
如果 Template 參數指定的是文件，則該文件名可包含路徑。

1.2 workbooks.add 會自動打開一個「工作簿1」這類的wb文件，並activate之
workbooks.add 會自動生成一個 " 工作簿N" 的WB文件，且active
workbooks.add 在add後，會打開一個「工作簿1」這類的wb文件
並且最後add的 wb文件 成為新的 activeworkbook
Sub test98()
Workbooks.Add
End Sub

1.3 workbooks.add(template)
template Variant 類型，可選

1.3.1 template如果指定為 EXCEL內置的常量
可為以下 XlWBATemplate 常量之一
xlWBATChart
xlWBATExcel4IntlMacroSheet
xlWBATExcel4MacroSheet
xlWBATWorksheet
Sub test91()
Workbooks.Add (xlWBATChart)
Workbooks.Add (xlWBATWorksheet)
Workbooks.Add (xlWBATExcel4MacroSheet)
Workbooks.Add (xlWBATExcel4IntlMacroSheet)
End Sub

1.3.2 若 template指定為文本，文本是一個文件路徑，文件必須先存在
（暫時沒發現有什麼用處）
template 如果本參數為指定一現有 Microsoft Excel 文件名的字元串，那麼創建新工作簿將以該指定的文件作為模板

如果template指定為文件，文件必須先存在，否則報錯。
那麼template為一個路徑
如果是完整的絕對路徑，則需要帶path
如果只是相對路徑，那麼 excel 2010版本會去這兒找這個文件：D\用戶目錄/我的文檔下面 ,默認目錄？
好像指定過後會把新的路徑當默認路徑
Sub test96()
Workbooks.Add (ThisWorkbook.Path & "\" & ActiveSheet.Name & ".xlsx")
End Sub

Sub test97()
Workbooks.Add (ActiveSheet.Name & ".xlsx")
End Sub

2、thisworkbook.sheets(1).
這個是將當前代碼所在工作簿的左側第一張表拷貝生成新的工作簿文件。新文件包含一張表格。具體對應的文件跟表格可以根據需求調整