Tag: mkdir

Excel VBA – 具有variables名称的mkdir

我有一个macros将数据复制到工作簿并将工作簿保存为input工作簿中variables的组合。 这是我用来做到这一点： ActiveWorkbook.saveas "D:\sm031648\Documents\Lighting Audits\" & Accnt & " – " & Property & ".xlsx", FileFormat:= _ xlOpenXMLWorkbook, CreateBackup:=False 我想在之前添加一个if语句和mkdir，以便将其保存在相同名称的文件夹中，并在目录中创build该文件夹（如果尚不存在）。 当我在下面的代码中inputvariables名称时，出现“Compile Error; Expected end of statement”。 我错过了什么？ If Len(Dir("D:\sm031648\Documents\Lighting Audits\" & Accnt & " – " Property, vbDirectory)) = 0 Then MkDir "D:\sm031648\Documents\Lighting Audits\" & Accnt & " – " Property End If

用像xlsm文件这样的模板创build文件夹和新的* .xlsx文件

我有这个代码创build一个文件夹，并保存其中的实际文件，但我希望它只保存一份副本只有一张表 。 这样，代码文件就像一个模板… 你写你的东西，然后按下button，它会在一个新的文件夹中保存一张.xlsx文件（带有表格的表格）…所以你可以用数百个文件和文件夹来完成。 所以最后它应该像这样工作： 您打开下面的代码所在的.xlsm文件。 你必须把一张表格（以后应该“导出”）和一份表格复制到表格中。 当您填写表单并按下button并将表单保存在新文件夹中作为.xlsx，您可以继续在.xlsm文件中。 如果不清楚，请询问。 我现在的代码 Sub Macro1() Dim strFilename, strDirname, strPathname, strDefpath As String On Error Resume Next ' If directory exist goto next line strDirname = Range("D81").Value ' New directory name strFilename = Range("D8").Value 'New file name strDefpath = Application.ActiveWorkbook.Path 'Default path name If IsEmpty(strDirname) Then Exit Sub If […]