1. при запуске макроса access'а выдается предупреждение о б "опасном " макросе. кчто прописать надо в код, чтоб эта ерунда не выскакивала и access работал не проявляя себя? в excel это делалось через
- Код: Выделить всё
xl.DisplayAlerts = False
2. как в макросе access'а прописать присвоение числового типа данных одному из полей в созданной через запрос таблице, а потом значения этого поля отсортировать по убыванию (естественно, с измененими в соседних полях - ключи строк-то не меняются)?
3. при обработке excel файла использовался код
- Код: Выделить всё
' Òýãè äëÿ ÈíÄåçà
str11 = "<pstyle:><ptr:113.4\,Right\,.\,0\,\;161\,Right\,.\,0\,\;208.4\,Right\,.\,0\,\;259\,Right\,.\,0\,\;309\,Right\,.\,0\,\;370.5\,Right\,.\,0\,\;436.956\,Right\,.\,0\,\;><ct:Blk DP Cyrillic><cs:7.5><chs:0.9><cl:9.3><cf:BellGothicC Blk DP>"
str12 = "<pstyle:><ptr:113.4\,Right\,.\,0\,\;161\,Right\,.\,0\,\;208.4\,Right\,.\,0\,\;259\,Right\,.\,0\,\;309\,Right\,.\,0\,\;370.5\,Right\,.\,0\,\;436.956\,Right\,.\,0\,\;><ct:Blk DP Cyrillic><cs:7.5><chs:0.9><cl:9.3><cf:BellGothicC Blk DP><prbs:0.3><prbo:2.835><prbon:1>"
str13 = "<ct:><cs:><chs:><cl:><cf:><ct:BT Cyrillic><cs:7.5><chs:0.9><cl:9.3><cf:BellGothicC BT>"
str14 = "<ct:><cs:><chs:><cl:><cf:><ct:Blk DP Cyrillic><cs:7.5><chs:0.9><cl:9.3><cf:BellGothicC Blk DP>" ' ???
Open "C:\Priem\ÌÌÂÁ - Èòîãè òîðãîâ íåãîñóäàðñòâåííûìè îáëèãàöèÿìè.txt" For Output As #1
Print #1, ("<CYRILLIC-WIN>")
For i = 1 To 91 'intzeroline - 2
If i Mod 10 = 0 Then DoEvents
If i Mod 5 = 0 Then
Print #1, (str12 & .Cells(i, 1) & str13 & Chr(9) & .Cells(i, 2) & Chr(9) & .Cells(i, 3) & Chr(9) & .Cells(i, 4) & Chr(9) & .Cells(i, 5) & Chr(9) & .Cells(i, 6) & Chr(9) & .Cells(i, 7) & Chr(9) & .Cells(i,
)
Else
Print #1, (str11 & .Cells(i, 1) & str13 & Chr(9) & .Cells(i, 2) & Chr(9) & .Cells(i, 3) & Chr(9) & .Cells(i, 4) & Chr(9) & .Cells(i, 5) & Chr(9) & .Cells(i, 6) & Chr(9) & .Cells(i, 7) & Chr(9) & .Cells(i,)
End If
Next i
'i = intzeroline - 1
Print #1, (str11 & .Cells(i, 1) & str13 & Chr(9) & .Cells(i, 2) & Chr(9) & .Cells(i, 3) & Chr(9) & .Cells(i, 4) & Chr(9) & .Cells(i, 5) & Chr(9) & .Cells(i, 6) & Chr(9) & .Cells(i, 7) & Chr(9) & .Cells(i,);
Close #1