求教-代码快捷替换

用dir方法判断

你掉用系统窗口让人自己选路径

这个sub最好改为接受一个参数，然后在工作表代码里调用单元格改变的事件，判断改变的单元格是否为文件地址栏的单元格，如果是，则调用这个sub，把文件地址当做参数传递进去。

在 VBA 中，你可以使用Open语句来打开文件。以下是一个示例代码，演示如何使用 VBA 来打开一个文本文件：
Sub OpenFileDialog()
Dim FileNumber As Integer
Dim FilePath As String
' 调用文件打开对话框
FilePath = Application.GetOpenFilename("Text Files (*.txt), *.txt")
' 检查是否选择了文件
If FilePath = False Then
MsgBox "你没有选择任何文件"
Exit Sub
End If
' 打开文件
FileNumber = FreeFile()
Open FilePath For Input As #FileNumber
' 读取文件内容
Do While Not EOF(FileNumber)
Line Input #FileNumber, Line
网页链接 Line
Loop
' 关闭文件
Close #FileNumber
' 显示文件内容
MsgBox "文件内容：" & vbCrLf & vbCrLf & ReadFile
End Sub
在这个示例中，我们首先使用网页链接函数调用文件打开对话框。然后，我们检查是否选择了文件。如果没有选择文件，我们将显示一条消息，并退出子过程。如果选择了文件，我们将使用FreeFile函数获取一个空闲的文件号，并使用Open语句打开文件。接下来，我们使用Line Input语句读取文件内容，并使用网页链接语句将其显示在调试窗口中。最后，我们使用Close语句关闭文件，并使用MsgBox函数显示文件内容。
请注意，在实际应用中，你可能需要根据文件的类型和内容来处理文件。例如，你可能需要使用Input语句来读取文本文件，或者使用Binary模式来读取二进制文件。你还可能需要使用其他文件操作函数，如Write、ReadLine、WriteLine等。

mypath=[a1]
红线部分换成mypath
这样不就行了？

把路径放单元格里面让客户自己输入，然后代码里面调用。你这个问题实际上是英文系统没设置好不支持中文。想一劳永逸可以设置一下。我公司电脑就是这样的

看你的很多单元格.select头大。VBA是上帝视角，就是非人类操作。啥叫非人？比如人要回家上坑，得先开大门，再开卧室门，再脱鞋扶抗沿才能上抗，上帝怎么做？上帝视角只要一步，从屋外一步就把你扔里屋抗上，为啥人能这么干？人是上帝公司人家开的，vba也是上帝，不管你当前在哪张表上，可以直接对其他表上的单元格执行.copy，不需要选中，不需要切换到那个表上，那是人才要那么干，听明白没？

回答你问题。你这图上边有一句Y=Sheets("QA Test").[A6]，这玩艺是啥意思？不就让Y等于当前QA Test表的A6单元格里边的值吗？这里我做一个假设，这个A6格里放的就是文件路径，难道你就不能让工作薄打开时让Filename:=Sheets("QA Test").[A6]吗？

最好还是放到同一个文件夹，直接省略选择路径不好吗？