excel宏，以固定单元格数值为文件名，打开相应excel文件？(excel 如何用宏取打开的excel文件名)
- excel 如何用宏取打开的excel文件名
- EXCEL如何用宏实现点击单元格根据单元格内容打开同名文件？
- 在VBA 用某一单元格的值当作文件名称如何打开文件?
- 用Excel宏打开指定目录下文件名中含有指定字符的excel文件
excel 如何用宏取打开的excel文件名
如果你只是想链接引用其他工作簿中某工作表数据的数据，则不是必须把第二个文件打开才可以。只需要在要引用的单元格（当然也可以在你的宏程序中，根据需要改动）把引用地址写好就可以了，类似于
='C:\[Book2.xls]Sheet1'!$A2
EXCEL如何用宏实现点击单元格根据单元格内容打开同名文件？
答：我写了段代码。如下：
Sub Demo()
Dim FilePath As String
Dim FileName As String
If IsEmpty(ActiveCell) Then Exit Sub
FilePath = "D:\工艺文件\"
FileName = Replace(ActiveCell.Value, "/", "-") & ".xls*"
Call ReDir(FilePath, FileName)
End Sub
Public Sub ReDir(ByVal CurrDir As String, ByVal FindName As String)
Dim Dirs() As String
Dim NumDirs As Long
Dim TotalFiles, SingleFile
Dim TotalFolders, SingleFolder
Dim fso As Object, f
Set fso = CreateObject("scripting.filesystemobject")
Set TotalFiles = fso.GetFolder(CurrDir).Files
Set TotalFolders = fso.GetFolder(CurrDir).SubFolders
If TotalFiles.Count <> 0 Then
For Each SingleFile In TotalFiles
If fso.GetFile(SingleFile).Name Like FindName Then
Workbooks.Open FileName:=SingleFile
End If
Next
End If
If TotalFolders.Count <> 0 Then
For Each SingleFolder In TotalFolders
ReDim Preserve Dirs(0 To NumDirs) As String
Dirs(NumDirs) = SingleFolder
NumDirs = NumDirs + 1
Next
End If
For i = 0 To NumDirs - 1
Call ReDir(Dirs(i), FindName)
Next i
End Sub快捷键设置，见下图，点"宏"按钮，打开宏对话框，然后设置快捷键。之后，鼠标选中1个单元格就可以用快捷键执行打开文件操作了。
在VBA 用某一单元格的值当作文件名称如何打开文件?
如果你的文件放在桌面，文件名放在A1单元格
Sub 打开文件()
Workbooks.Open Filename:="C:\Documents and Settings\stxtest\Desktop\" & Range("A1") & ".xls"
End Sub
用Excel宏打开指定目录下文件名中含有指定字符的excel文件
打开cmd命令，然后cd 进入到你要复制的文件夹下，然后输入dir就会显示所有当前文件夹下所有的文件夹和文件的名字，然后全选择鼠标右键，就复制了。