Question

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

A1是一个Pulldown菜单，其值为Apple1，Banana1等......代表excel文件名。 Excel应通过单击“导出”按钮打开拾取的文件并将单元格或范围导出，例如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

文件打开后，它会根据上面的输入继续将数据复制到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

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

1 个答案: