У меня есть функция, которая получает Google лист, а затем записать его в таблицу Excel:
Function GetDataFromGoogle()
Dim i As Integer
With Worksheets("Listing")
With .QueryTables.Add (Connection:="URL;https://docs.google.com/spreadsheets/d/1Rudp78FjmbWhtPMRLr6ItgIq0p_alzeSQKTVKlkOVA4/edit?usp=sharing", Destination:=Worksheets ("Listing").Range("$A$1"))
.Name = "List"
.PreserveFormatting = True
.BackgroundQuery = True
.WebFormatting = xlWebFormattingNone
.Refresh BackgroundQuery:=False
End With
DoEvents
End With
For i = 1 To ThisWorkbook.Connections.Count
If ThisWorkbook.Connections.Count = 0 Then Exit Function
ThisWorkbook.Connections.item(i).Delete
i = i - 1
Next i
End Function
Но по какой-то причине в ячейках с символом "/" формат даты копируется.
Я попытался форсировать формат в Excel с помощью:
Worksheets("Listing").Columns(3).NumberFormat = "####.#"
до или после, но это не работает