• 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就会显示所有当前文件夹下所有的文件夹和文件的名字，然后全选择鼠标右键，就复制了。