Вставить данные из набора записей

Я хочу вставить данные в запись, установленную в 3 столбца на листе.Вставить данные из набора записей

rs.Open "SELECT [Sheet1$].Security,[Sheet1$].Description,[Sheet1$].ID FROM [Sheet1$] WHERE [Sheet1$].Number=1", cn, adOpenKeyset, adLockReadOnly 

With Worksheets("Sheet4") 
    .Cells.ClearContents 
    .Cells(5, 1).CopyFromRecordset rs 
End With

Когда я использую приведенный выше код он вставляет данные в 4 к листу, начиная с 5,1, в то время как я хочу, чтобы вставить эти данные в колонке А, Е, Н листа 4. кто может пролить некоторый свет Пожалуйста.

источник

2015-03-13 Meesha

Не уверен, что вы можете вставлять данные из набора записей в прерывистом диапазоне. Вам, вероятно, придется скопировать его на рабочий лист temp, а затем скопировать нужные столбцы или создать 3 набора записей, а затем вставить их по 1 в нужные столбцы. – OpiesDad

Прокрутите набор записей и скопируйте каждое значение поля в соответствующий столбец. –

Вы можете поместить постоянные значения в ЗЕЬЕСТ так:

rs.Open "SELECT [Sheet1$].Security, '', '', '', [Sheet1$].Description, '', '', [Sheet1$].ID FROM [Sheet1$] WHERE [Sheet1$].Number=1", cn, adOpenKeyset, adLockReadOnly

или вы можете использовать NULL:

rs.Open "SELECT [Sheet1$].Security, NULL, NULL, NULL, [Sheet1$].Description, NULL, NULL, [Sheet1$].ID FROM [Sheet1$] WHERE [Sheet1$].Number=1", cn, adOpenKeyset, adLockReadOnly

редактировать: это будет уничтожить все, что в столбцах B: D и F : G, который может быть или не быть проблемой для вас

источник

2015-03-14 03:14:45 barrowc

Вставить данные из набора записей

ответ

Смежные вопросы