У меня есть автоматизированный инструмент, который создает несколько электронных таблиц из файла, и следующим дополнением к процессу будет использование сравнения электронных таблиц для получения различий между двумя из созданных файлов, экспорта результатов, а затем изменения форматирования.полученного листа.У меня есть код, работающий для открытия Spreadsheet Compare, но я не знаю, как правильно передать в него местоположения файлов листов.
На основании этой ссылки и этой ссылки попытался установить 2 переменные с местоположениями и объединить их в одну переменную для ввода в shell (), а также добавить обе переменные в shell (), но ни одна из них не сработала.Я могу сказать, что это влияет на загрузку файлов, так как я выдаю мне ошибку из Spreadsheet Compare, которая гласит «Пожалуйста, укажите 2 файла для сравнения», чего не было, когда я только открывал приложение, не пытаясь подать его файлы.
В соответствии с предложением FreeMan, вот очень формат, который я пробовал;
-C: \ file1.xlsx C: \ file2.xlsx
- "C: \ file1.xlsx C: \ file2.xlsx "
-" C: \ file1.xlsx "" C: \ file2.xlsx "
-'C: \ file1.xlsx C: \ file2.xlsx '
-'C: \ file1.xlsx '' C: \ file2.xlsx '
- [C: \ file1.xlsx C: \ file2.xlsx]
- [C: \ file1.xlsx] [C: \ file2.xlsx]
- (C: \ file1.xlsx C: \ file2.xlsx)
- (C: \ file1.xlsx) (C: \ file2.xlsx)
-все перечисленные выше в одной переменной (первый метод)
- все вышеперечисленное разделено между двумя переменными (второй метод)
- все вышеперечисленное из прогона
- все вышеперечисленное из прогона с использованием файла .txt для местоположений файлов
Sub tCompare()
Dim strRoboappPath As String, varProc As Variant
Dim strArg As String
Dim var1 As String
Dim var2 As String
var1 = "C:\file1.xlsx"
var2 = "C:\file2.xlsx"
On Error Resume Next
strRoboappPath = "C:\Program Files (x86)\Microsoft Office\Office15\DCF\SPREADSHEETCOMPARE.exe"
strArg = var1 + " " + var2
varProc = Shell("""" & strRoboappPath & """ """ & strArg & """") 'first method
varProc = Shell("""" & strRoboappPath & """ """ & var1 & """ """ & var2 & """") 'second method
End Sub
Я ищу Сравнение электронных таблиц, чтобы открыть оба файла уже загружены.