Excel VBA调用MATLAB：双路径通用化实现技术咨询

硬编码MATLAB安装路径会导致程序在不同用户环境下失效，可通过读取注册表或让用户手动选择的方式实现路径通用化：

修改后的VBA代码 #

Dim MatLab As Object
Dim matlabRootPath As String
Dim regKey As String

' 尝试从注册表读取MATLAB安装路径（适配64位系统，32位系统请将注册表路径改为HKEY_LOCAL_MACHINE\SOFTWARE\MathWorks\MATLAB）
regKey = "HKEY_LOCAL_MACHINE\SOFTWARE\WOW6432Node\MathWorks\MATLAB\R2022b\MATLABRoot"
matlabRootPath = GetSetting("MathWorks", "MATLAB", "MATLABRoot", "")

' 注册表读取失败时，弹出对话框让用户手动选择
If matlabRootPath = "" Then
    MsgBox "无法自动获取MATLAB路径，请手动选择安装目录。", vbExclamation
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "选择MATLAB安装根目录"
        If .Show = -1 Then
            matlabRootPath = .SelectedItems(1)
        Else
            Exit Sub ' 用户取消选择，终止流程
        End With
    End With
End If

' 启动MATLAB实例
Set MatLab = CreateObject("Matlab.Application")

' 动态拼接工具目录并切换（如果需要）
Dim toolboxPath As String
toolboxPath = matlabRootPath & "\toolbox\matlab\addon_enable_disable_management"
MatLab.Execute("cd '" & Replace(toolboxPath, "\", "\\") & "'")

说明：若需适配多MATLAB版本，可通过枚举注册表中MathWorks\MATLAB下的子项来获取最新版本路径，避免硬编码版本号。

针对固定Excel路径的问题，提供三种通用化方案：

方案1：从VBA传递当前Excel路径（推荐） #

利用VBA直接获取当前Excel文件的完整路径，传递给MATLAB使用：

• VBA端补充代码：在启动MATLAB后添加路径传递逻辑

Dim excelFilePath As String
excelFilePath = ThisWorkbook.FullName ' 获取当前Excel文件的完整路径
MatLab.Execute("excelFilePath = '" & Replace(excelFilePath, "\", "\\") & "';")

• MATLAB端修改代码：替换固定路径为接收的变量

opts = spreadsheetImportOptions("NumVariables", 15);
' 保持原opts配置不变...

% 使用从VBA传递的路径读取文件
B = readtable(excelFilePath, opts, "UseExcel", false);

' 后续代码不变...

方案2：自动读取同目录下的Excel文件 #

若Excel文件与MATLAB脚本在同一文件夹，可自动获取路径：

' 获取当前脚本所在目录
scriptDir = fileparts(mfilename('fullpath'));
' 拼接Excel文件名（替换为实际文件名）
excelFilePath = fullfile(scriptDir, "你的Excel文件名.xlsx");

opts = spreadsheetImportOptions("NumVariables", 15);
' 保持原opts配置不变...

B = readtable(excelFilePath, opts, "UseExcel", false);

方案3：让用户手动选择Excel文件 #

通过文件选择对话框让用户指定文件位置：

[fileName, filePath] = uigetfile("*.xlsx", "选择包含数据的Excel文件");
if isequal(fileName, 0)
    error("用户取消了文件选择");
end
excelFilePath = fullfile(filePath, fileName);

opts = spreadsheetImportOptions("NumVariables", 15);
' 保持原opts配置不变...

B = readtable(excelFilePath, opts, "UseExcel", false);

内容的提问来源于stack exchange，提问作者Sara