自动创build一个由networking位置中的单元格引用命名的文件夹

我试图创build一个已经创build的networking位置的文件夹，然后命名新的文件夹的值的2个单元格引用结合在一个特定的工作表。

Dim strFilename, strDirname, strPathname, strDefpath As String 'On Error Resume Next strDirname = ContractorChecklistSheet.Range("B6" & "B7").Value strFilename = ContractorChecklistSheet.Range("B6" & "B7").Value strDefpath = "T:\Projects\" MkDir strDefpath & strDirname strPathname = strDefpath & strDirname & "" & strFilename If IsEmpty(filename) Then Exit Sub End Sub 

但我不能得到它的工作，代码停止在strDirname，可有人请帮助。

Answer 1

如果你有一个工作表CodeName的ContractorChecklistSheet那么这个更新的范围将工作

 strDirname = ContractorChecklistSheet.Range("B6").Value & ContractorChecklistSheet.Range("B7").Value 

否则，如果您的Excel选项卡被命名为ContractorChecklistSheet ，则尝试

 strDirname = Sheets("ContractorChecklistSheet").Range("B6").Value & Sheets("ContractorChecklistSheet").Value 

请注意，您应该使用MkDir上的错误检查来确保文件夹名称是有效的