VBA: Open Document на основе значения ячейки с несколькими условиями

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