Код: Выделить всё
Public Sub ImportCSV(sFile As String, ws As Worksheet)
Dim f As Integer
Dim si As String
Dim i As Long, j As Long
Dim x As Long
Dim v1 As Variant
Dim v2 As Variant
On Error Resume Next
f = FreeFile
Open sFile For Binary As #f
If Err.Number <> 0 Then
'Сигнализируем об ошибке (если надо)
Exit Sub
End If
si = String(LOF(f), Chr(0))
Get #f, , si
Close #f
v1 = Split(si, vbCrLf)
x = 1
For i = LBound(v1) To UBound(v1) 'цикл по строкам CSV
v2 = Split(v1(i), ",")
ws.Cells(x, 1).Resize(1, UBound(v2) + 1) = v2
x = x+1
Next i
End Sub
Код: Выделить всё
Sub FixDateToFrac()
' Исправление ошибочной конвертации запятой в дату
Dim c As Range
Selection.NumberFormat = "@"
For Each c In Selection
If IsNumeric(c.Value) And (c.Value > 1000) Then
If Year(c.Value) = Year(Date) Then
c.Formula = "'" & Day(c.Value) & "," & Month(c.Value)
ElseIf Day(c.Value) = 1 Then
c.Formula = "'" & Month(c.Value) & "," & Format(c.Value, "yy")
End If
End If
Next
End SubСпасибо, беру на заметку. И в копилкуПри открытии в Excel некоторая часть данных принимает формат "дата". Если теперь эти данные все же преобразовать в формат "числовой" естественно получается полная лажа.
Попробовал на Вашем примере, вроде бы это решение для данного случая как раз подходит. Это же как раз не преобразование обратно в числовой формат (как Excel его понимает - "полная лажа"), а именно исправление в выделенном диапазоне ошибочно конвертированого." писал(а):AlexZZZ, да интересное решение частного случая
прелесть этого решения как раз в том, что подобное преобразование числового значения в дату происходит довольно часто в силу "умничания" Excel, в разных документах. И вот здесь оно (это решение) - то, что нужно! И пригодится не только в данном случае. Потому и говорю - в копилку!Попробовал на Вашем примере, вроде бы это решение для Вашего случая как раз подходит.
VictorM писал(а): Чёт не получается у меня это все запустить.
Цикл вроде пробегается, но результатов нет.
нет, у меня - ";".У вас разделитель элементов строки в файле "," ?
Тогда понятно почему у вас не работаетнет, у меня - ";"
Код: Выделить всё
.............
v2 = Split(v1(i), ";")
..............
Код: Выделить всё
Dim w as Worksheet
Dim Fn as string
Fn = ThisWorkbook.Path &"\MyCsv.csv"
Set w = ActiveWorkbook.Worksheets("MySheet")
ImportCSV Fn,w