如何利用VBA变量来指代文件夹路径

xfwxiao

我想利用VBA的变量来指代文件夹的路径，然后在这个变量指定的文件夹下创建一个新的文件夹，并将打开的文件存在这个新文件夹下。

1.如果指定的文件夹路径是不变的，程序非常简单。比如指定文件夹路径为C:\456
Sub FileSaveTest()
Workbooks.Open Filename:="c:\123.xlsx" ’打开文件
MkDir "C:\456\789" ‘在指定的文件夹456下创建新的文件夹789
ActiveWorkbook.SaveAs "C:\456\789\123copy.xlsx” ‘将文件123存入文件夹789并命名为123copy.
End Sub

2.如果由用户来指定文件夹路径，需要用到变量，可以用input函数来让用户输入路径，但是我用的是下面这个方法提取路径的：
Sub FileSaveTest()
Dim FolderPath As String
       With Application.FileDialog(msoFileDialogFolderPicker) ‘选取并指定文件夹路径C:\456
               .Show
               FolderPath = .SelectedItems(1)’ 提取文件夹路径C:\456
      End With
Workbooks.Open Filename:="c:\123.xlsx" ’打开文件
MkDir "& FoderPath &”\789" ‘在指定的文件夹下创建新的文件夹取名789
ActiveWorkbook.SaveAs "& FolderPath &”\789\123copy.xlsx” ‘将文件123存入文件夹789并命名为123copy.
End Sub
但是这段code运行提示找不到路径，我想原因是在语句Mkdir和ActiveWorkbook.SaveAs 中变量的表达方式不对。因为通过 With Application.FileDialog(msoFileDialogFolderPicker) 赋给FolderPath的值是一个带引号的字符串如：”c:\456”。这样一个字符串到了MkDir "& FoderPath &”\789"这里就成了””c:\456””\789, 所以找不到路径。
请问如何修改代码，谢谢！

[ 本帖最后由 xfwxiao 于 2011-6-25 09:51 编辑 ]

livewire

1. 
   
2. Sub FileSaveTest()
   
3. Dim FolderPath As String
   
4.        With Application.FileDialog(msoFileDialogFolderPicker) '选取并指定文件夹路径C:\456
   
5.                .Show
   
6.                FolderPath = .SelectedItems(1) ' 提取文件夹路径C:\456
   
7.       End With
   
8. Workbooks.Open Filename:="c:\123.xlsx" '打开文件
   
9. MkDir FolderPath & "\789" '在指定的文件夹下创建新的文件夹取名456
   
10. ActiveWorkbook.SaveAs FolderPath & "\789\123copy.xlsx" '将文件123存入文件夹789并命名为123copy."
    
11. End Sub
    
12. 
    

复制代码

xfwxiao

MkDir FolderPath & "\789"
一针见血，谢谢楼上，我总是不能很好的运用&，什么时候用？用在哪里？

[ 本帖最后由 xfwxiao 于 2011-6-25 09:59 编辑 ]

旭日升

原帖由 xfwxiao 于 2011-6-25 09:55 发表
MkDir FolderPath & "\789"
一针见血，谢谢楼上，我总是不能很好的运用&，什么时候用？用在哪里？

这个&用得太多了。
比如：
S="123"
S="1" & "2" & "3"

xfwxiao

再请教楼上，如果我的文件名的某一段中含有变量，这个&应该如何书写呢？
ActiveWorkbook.SaveAs FolderPath & "\789\123 +用户输入的内容+copy.xlsx”

旭日升

&用于连接前后的数据。如果是字符串，就要加上引号，对象或者变量不能加引号。
X = InputBox("输入")
ActiveWorkbook.SaveAs FolderPath & "\789\123" & X & "copy.xlsx"

xfwxiao

谢谢楼上，开始明白如何用了。
想问问一下，如果我用VBA打开一个excel 文件，然后用鼠标在这个文件中选定几个连续 或者 不连续的 单元格作为range；这些鼠标选定的range可以传递给VBA的一个range变量吗？因为在进一步的循环语句中中，我想利用这个用户指定的range变量。

cm96999

不连接的区域好像不能设置range变量。

[ 本帖最后由 cm96999 于 2011-7-23 07:29 编辑 ]

bmp2m3

livewire 发表于 2011-6-25 09:39

请问，为什么我用以下代码时
Workbooks.Open Filename:="d:\配合内控销售循环使用.xlsx"
出现
运行时错误1004
方法open作用于对象workbooks时失败？
我是在excel2007中运行

dljyh2009

收藏一下，学习