使用Excel VBA创建多个文件夹

由 发布于

子数据表_MC_V1（） ' 'Datasheet_MC_V1宏 ' 昏暗的文件名作为字符串

n = Sheets（“ Loop”）。Range（“ C1”）。Value 对于i = 2至n + 1

Sheets("Loop").Select
Range("A" & i).Select
Selection.Copy
Sheets("For Looping").Select
Range("A2").Select
ActiveSheet.Paste
Filename = Cells(2, 2).Value
x = "Multicopter\"
MkDir "C:\Users\Raam\Desktop\Excel marcro for datasheet\" & Filename
Sheets("Before display").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    "C:\Users\Raam\Desktop\Excel marcro for datasheet\" & Filename & "\" & Filename & "_datasheet.pdf" _
    , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
    :=False, OpenAfterPublish:=False

Next i

结束子

我试图将文件另存为pdf，这是基于错误的单元格值创建的文件夹。

代码没有错误    ActiveSheet.ExportAsFixedFormat类型：= xlTypePDF，文件名：= _         “ C：\ Users \ Raam \ Desktop \ Excel marcro for datasheet \”＆Filename＆“ _datasheet.pdf” _

即当我尝试将其保存在创建的文件夹之外时。