Хобрук: Ваш путь к мастерству в программировании

Форма MS Access, заполняющая определенные поля в файле excel

У меня есть приведенный ниже код, который берет определенные поля из моей формы MS Access (небольшая база данных бронирования отелей) и заполняет определенные ячейки в указанном файле Excel.

Dim objXLApp As Object
Dim objXLBook As Object
Set objXLApp = CreateObject("Excel.Application")
Set objXLBook = objXLApp.Workbooks.Open("Y:\123files\File\Hotel Reservation.xls")
objXLApp.Application.Visible = True

objXLBook.ActiveSheet.Range("B2") = Me.GuestFirstName & " " & GuestLastName
objXLBook.ActiveSheet.Range("C2") = Me.PhoneNumber
objXLBook.ActiveSheet.Range("E2") = Me.cboCheckInDate
objXLBook.ActiveSheet.Range("F2") = Me.cboCheckOutDate
objXLBook.ActiveSheet.Range("H2") = Me.RoomType
objXLBook.ActiveSheet.Range("I2") = Me.RoomNumber
End Sub

Me.RoomType — это поле со списком, в котором источником строк является запрос из трех столбцов. Когда я запускаю код, файл excel перечисляет первый столбец в моем запросе вместо столбца 2, который мне нужен, как я могу указать ему добавить второй столбец моего запроса вместо первого? Кроме того, как я могу перейти к следующей строке в файле Excel, когда я переключаюсь на новую форму клиентов в моем файле Access?

Спасибо

ms-access
12.01.2011

Ответы:


1

Используйте свойство Column вашего поля со списком, чтобы извлечь нужное значение. Нумерация столбцов начинается с нуля, поэтому вторым будет столбец (1). Попробуй это:

objXLBook.ActiveSheet.Range("H2") = Me.RoomType.Column(1)

Для получения дополнительной информации см. Способ 2 в разделе Как использовать свойство столбца поля со списком для обновления текстового поля

Не знаю, что сказать в ответ на ваш второй вопрос. Я думаю, вы должны указать свои диапазоны во время выполнения, объединив букву столбца и переменную номера строки.

Dim lngExcelRow as Long
lngExcelRow = 2
objXLBook.ActiveSheet.Range("B" & lngExcelRow) = [something ...]

Затем, чтобы записать в другую строку листа, измените значение lngExcelRow.

12.01.2011
  • Спасибо, HansUp, но столбец (1) вернул ошибку «Метод или член данных не найден», и он выделяет .column 13.01.2011
    • Новые материалы
    Не зря же это называют интеллектом
    Стек — C#, Oracle Опыт — 4 года Работа — Разведывательный корпус Мне пора служить Может быть, я немного приукрашиваю себя, но там, где я живу, есть обязательная военная служба на 3..
    LeetCode Проблема 41. Первый пропущенный положительный результат
    LeetCode Проблема 41. Первый пропущенный положительный результат Учитывая несортированный массив целых чисел, найдите наименьшее пропущенное положительное целое число. Пример 1: Input:..
    Расистский и сексистский робот, обученный в Интернете
    Его ИИ основан на предвзятых данных, которые создают предрассудки. Он словно переходит из одного эпизода в другой из серии Черное зеркало , а вместо этого представляет собой хронику..
    Управление состоянием в микрофронтендах
    Стратегии бесперебойного сотрудничества Микро-фронтенды — это быстро растущая тенденция в сфере фронтенда, гарантирующая, что удовольствие не ограничивается исключительно бэкэнд-системами..
    Декларативное и функциональное программирование в стиле LINQ с использованием JavaScript с использованием каррирования и генератора ...
    LINQ - одна из лучших функций C #, которая обеспечивает элегантный способ написания кода декларативного и функционального стиля, который легко читать и понимать. Благодаря таким функциям ES6,..
    Структуры данных в C ++ - Часть 1
    Реализация общих структур данных в C ++ C ++ - это расширение языка программирования C, которое поддерживает создание классов, поэтому оно известно как C с классами . Он используется для..
    Как я опубликовал свое первое приложение в App Store в 13 лет
    Как все началось Все началось три года назад летом после моего четвертого класса в начальной школе. Для меня, четвертого класса, лето кажется бесконечным, пока оно не закончится, и мой отец..