Я собираюсь направить вас в правильном направлении, предполагая, что я правильно вас понимаю.
Если вы открываете и хотите читать из таблицы Excel, это будет полезно:
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim cmd As ADODB.Command
'Set up the Connection to Excel
Set cnn = New ADODB.Connection
With cnn
.Provider = "Microsoft.ACE.OLEDB.12.0" 'or whatever your provider is
.ConnectionString = "Data Source="C:\My_source_file.xlsx';Extended Properties='Excel 12.0 Xml;HDR=NO;IMEX=1';"
.Open
End With
'Set up the command to get all that mess out the spreadsheet.
Set cmd = New ADODB.Command
With cmd
.ActiveConnection = cnn
.CommandText = "SELECT * FROM [WhateverSheetHasMyData$]"
End With
'Load up the recordset with everything in the worksheet.
Set rst = New ADODB.Recordset
With rst
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.Open cmd
End With
Это должно заставить вас идти в направлении, куда вы хотели бы пойти. Я уверен, что вы можете экстраполировать из этого, как вы могли бы также использовать команду для внесения данных, которые вы загрузили в какой-либо другой документ, например, в другую таблицу или таблицу базы данных.
Кроме того, когда дело доходит до добавления информации, Excel имеет изящную вещь:
...
Dim ws As Excel.Worksheet
Dim lastrow As Integer
Set ws = wb.Sheets(1) 'wb being your workbook object; you could also use the sheet name instead of the index here
ws.Activate
lastrow = ws.Cells.SpecialCells(11).Row 'gets you the last row
Таким образом, вы можете использовать этот lastrow + 1 значение в качестве отправной точки для вставки.
Как и в сторону,
«Помощь и советы очень ценятся! Plz не потрудился мне точку в правильном направлении ...»
^не очень хорошая вещь сказать вокруг этих частей. Особенно, когда вы только что сказали: «Я ценю вашу помощь, но, пожалуйста, не беспокойтесь, помогая мне».
Получайте удовольствие от этого.