使用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” _

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

评论