АлексейКвставляю данные на лист эксел так:
XL.ActiveSheet.PasteSpecial format:="Текст", Link:=False, DisplayAsIcon:=False
все классно, только числа сохранены как текст. и если нужно просуммировать или воспользоваться автофильтром то ничего не проходит.
если задать задать числовой формат для ячеек - это не приводит к конвертации уже имеющихся значений в числа.
можно сделать код циклом по используемому диапазону - повторный ввод значения ячейки на его же значение, при этом произойдет конвертация...
может подскажете как пооптимальнее преобразовать
или может есть метод аксесса чтоб это скопом сделать или копировать по другому ?
вааще-то при указанном типе вставки числа вставляются как текст в случае,
если для диапазона, на который производится вставка ранее был установлен
текстовый формат.
Варианты
1) установить другой формат
2) использовать
ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
False
это как будто работатает при всех форматах, если данные вставляются из
вордовой таблицы, например.
3) чуть подправить макрос.
Например так.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
Public Declare Function timeGetTime Lib "winmm.dll" () As Long
Sub TestByRow()
Dim tM&
tM& = timeGetTime
Dim tSheet As Worksheet
Dim lngK&, lngL&
Dim fK, tVal
Set tSheet = Application.ActiveSheet
With tSheet.UsedRange
fK = .FormulaLocal
If IsArray(fK) Then
'массив
For lngK = 1 & To .Rows.Count
For lngL = 1 & To .Columns.Count '
tVal = fK(lngK, lngL)
If IsNumeric(tVal) Then fK(lngK, lngL) = CDbl(tVal)
Next
Next
ElseIf IsNumeric(fK) Then
'одиночное значение
fK = CDbl(fK)
End If
'сбросим формат в "общий"
.NumberFormat = "General"
'установка значений
.FormulaLocal = fK
End With
MsgBox timeGetTime - tM
End Sub
ЗЫ
Алексей, за что ты так не любишь массивы?
:))
