ник: час
Сейчас вот считываю данные с листов одной книги....
ну канечно:
Public Xl As Object
Public xlBook As Object
Public xlSheet As Object
Public row, col
Public asd As String
Set Xl = CreateObject("Excel.Application")
CREATE_EXCEL = True
Set xlBook = Xl.Workbooks.Open(SHEET_PATCH)
Set xlSheet = Xl.Worksheets(SHEET_NAME)
xlSheet.Activate
Xl.Application.Visible = True 'False '
Xl.UserControl = True
а дальше вопрос.
' Xl.Cells(1, 3).Select - эта строка нужна или нет?
asd = Xl.Cells(1, 3)
========================
Всё работает и без установки фокуса на ячейку.
Но сумниваюся. Я.
================================================
Второй вопрос?
Считываю я построчно лист EXCEL. Бегая циклом по строкам и столбцам. В каждой строке 20-25 ячеек.
И засовываю в таблицу Access.
типа
RST_COMMODITY_TBL.AddNew
RST_COMMODITY_TBL("ID_COMMODITY") = FUN_GENERATE
RST_COMMODITY_TBL("KOD_COMMODITY") = Xl.Cells(row, 2)
;RST_COMMODITY_TBL("COMMODITY_NAME") = Xl.Cells(row, 3)
RST_COMMODITY_TBL("CLIENT_NAME") = CLIENTS(col)
RST_COMMODITY_TBL("VIEW_TARA") = TARA(col)
' Xl.Cells(row, col).Select
asd = Xl.Cells(row, col)
RST_COMMODITY_TBL("AMOUNT_ZAYAVA") = Format(Val(asd), "#0.000")
RST_COMMODITY_TBL("COMMENTARII") = SHEET_NAME & " " & row & col
RST_COMMODITY_TBL("DATE_ZAYVA") = DATE_ZAYVA
RST_COMMODITY_TBL("USER_NAME") = GLB_USER_NAME
RST_COMMODITY_TBL("DATE_RECORDS") = Date
RST_COMMODITY_TBL.Update
Можно ли как то считывать диапазоном... - типа ускорить процесс