VBA：基于具有多个条件的单元格值打开文档

我还是新来的VBA，所以我正在寻找build议完成以下任务：我有一个单元格A1和两个Checkboxes (Serverbox1 & Localbox2)

A1是一个Pulldown菜单，其值如Apple1，Banana1等，代表excel文件名。 Excel应打开拾取的文件并导出单元格或范围，例如，通过单击“导出”button将A2从WB1导出到WB2 。

Private Sub exportData_Click()

Dim WB1 as Workbook

Dim WB2 as Workbook

Server="C:\Server\Apple1.xls"

Local="C:\Local\Apple1.xls"

Set WS1=ThisWorkBook

Set WB1=ActiveWorkbook

WS2=WB2.Sheets(1)

Set WB2=Workbooks.Open(Server或Local)不知何故，需要自动更改。

因此， Set WB2=Workbooks.Open(Server)只适用如果A1 = Apple1 & Serverbox.value = true & Localbox2.value= false

并Set WB2=Workbooks.Open(Local)仅适用If A1 = Apple1 & Serverbox.value = false & Localbox2.value= true

一旦文件打开，它将继续根据上面的input将数据复制到Apple1.xls或Banana1.xls 。

ws2.range("A2")=ws1.range("A2")

我不需要担心自动保存任何东西，这将是一个手动过程（首选）。 我感谢任何帮助！

Answer 1

这里有一些你可以使用的想法。 你必须在几个地方更新你的代码。

 Server="C:\Server\" & A1 & ".xls" 'Get the filename from Cell A1 Local="C:\Local\" & A1 & ".xls" 'Get the filename from Cell A1 If (Serverbox.value = true & Localbox2.value= false) Then WB2=Workbooks.Open(Server) End If If (Serverbox.value = false & Localbox2.value= true) Then WB2=Workbooks.Open(Local) End If