К сожалению, нам не удалось найти файл по факту он там есть

Question

К сожалению, нам не удалось найти файл по факту он там есть

Рейтинг: 0Ответов: 1Опубликовано: 02.07.2023

Private Sub Open_xml(Path, FileName, Sheet, Cell As String)
Dim strTargetFile As String
Dim wb
strTargetFile = Path & "\" & FileName
Set wb = Workbooks.OpenXML(FileName:=strTargetFile, LoadOption:=xlXmlLoadImportToList)
wb.Sheets(1).UsedRange.Copy ThisWorkbook.Sheets(Sheet).Range(Cell)
wb.Close False
End Sub

vba visual-basic

Источник: Stack Overflow на русском

Answer 1

▲ 0Принят

Сказал же, проверьте расширение. Есть файл "XDSD.TQBR.AGRO_Settings.tmp" и "XDSD.TQBR.AGRO_Settings.xml", но нет файла "XDSD.TQBR.AGRO_Settings".

В Проводнике Windows нужно включить отображение расширений.

Или в строке адреса в этой папке напечатать "cmd". Откроется окно командной строки. Дать команду "dir". Выведется список файлов с расширениями.

К сожалению, нам не удалось найти файл по факту он там есть

Ответы