Экспорт определенных ячеек в MS Access

У меня был список людей, но он был в формате pdf, я преобразовал его в Excel, результат был таким.

Я хочу знать, возможно ли что-то подобное

Экспорт определенных ячеек в MS Access

С моим воображением я надеялся, что есть что-то, что я могу сделать это. Начать с первой ячейки -> следующая ячейка -> следующая ячейка -> добавить данные в ИМЯ_ -> следующая ячейка .... -> следующая строка -> добавить данные в НАЗВАНИЕ УЛИЦЫ .....

Извините, если это не имеет никакого смысла :) У меня нет опыта в этом, я знаю коды sql, но я не думаю, что смогу получить их по порядку с этими кодами, в этом файле Excel есть строки 1305613056/3=4352 человек на экспорт

В конце я хочу иметь возможность видеть людей из "ŞANLIURFA" с кодами sql

SELECT * FROM PEOPLE WHERE STATE/PROVINCE = "ŞANLIURFA"

РЕДАКТИРОВАТЬ

Sub fixData()
Dim writeRow As Integer

writeRow = 1
'Iterate through Sheet1 starting at row 9 and ending at 5000
'Skipping every 3 rows
For i = 11 To 5000 Step 3

    'Pick up the streetname from Sheet1 and stick it in Sheet2
    Sheet2.Cells(writeRow, 1).Value = Sheet1.Cells(i + 1, 1).Value  'Streetname
    Sheet2.Cells(writeRow, 2).Value = Sheet1.Cells(i + 1, 2).Value  'Building No
    Sheet2.Cells(writeRow, 3).Value = Sheet1.Cells(i + 1, 2).Value  'Daire No
    Sheet2.Cells(writeRow, 4).Value = Sheet1.Cells(i, 3).Value      'Name
    Sheet2.Cells(writeRow, 5).Value = Sheet1.Cells(i + 2, 3).Value  'Surname
    Sheet2.Cells(writeRow, 6).Value = Sheet1.Cells(i, 5).Value      'Gender
    Sheet2.Cells(writeRow, 7).Value = Sheet1.Cells(i, 6).Value      'Baba
    Sheet2.Cells(writeRow, 8).Value = Sheet1.Cells(i + 2, 6).Value  'Anne
    Sheet2.Cells(writeRow, 9).Value = Sheet1.Cells(i, 7).Value      'il
    Sheet2.Cells(writeRow, 10).Value = Sheet1.Cells(i + 2, 7).Value 'ilce

    '... like 10 more of these

    'Now we've written out one row to sheet2, increment to the next one
    writeRow = writeRow + 1
Next 
End Sub

VBA возвращает ошибку компиляции «требуется объект». Я проверил другие вопросы, но не понял.

Этот Я думал, что ему не хватает "Sub" и "End Sub", но это не относится ко мне, так как они у меня есть

excel ms-access

24.05.2018 22:16

Преобразование HTML-таблицы в профессиональный документ Excel

Это самый простой способ создания Excel из HTML-таблицы.

Импорт excel в laravel в базу данных

Здравствуйте, дорогой читатель, в этой статье я расскажу практическим и быстрым способом, как импортировать файл Excel в вашу базу данных с помощью...

Перейти к ответу Данный вопрос помечен как решенный

Ответы 1

Ответ принят как подходящий

Для этого вы используете VBA. Это написано не на 100% и делает некоторые предположения (например, мы читаем данные из Sheet1 и записываем в Sheet2, и что ваши данные доходят до строки 5000).

Sub fixData()
    Dim writeRow As Integer

    writeRow = 1
    'Iterate through Sheet1 starting at row 9 and ending at 5000
    'Skipping every 3 rows
    For i = 9 To 5000 Step 3

        'Pick up the streetname from Sheet1 and stick it in Sheet2
        Sheet2.Cells(writeRow, 1).Value = Sheet1.Cells(i + 1, 1).Value 'Streetname
        Sheet2.Cells(writeRow, 2).Value = Sheet1.Cells(i + 1, 2).Value 'Building No
        Sheet2.Cells(writeRow, 3).Value = Sheet1.Cells(i, 3).Value 'Name
        Sheet2.Cells(writeRow, 4).Value = Sheet1.Cells(i + 2, 3).Value 'Surname
        '... like 10 more of these

        'Now we've written out one row to sheet2, increment to the next one
        writeRow = writeRow + 1
    Next
End Sub

Большое вам спасибо, я могу продолжить с этого

— 24.05.2018 22:55

24.05.2018 22:27