Как написать, чтобы отличиться от VBA - PullRequest
Новая
       16

Как написать, чтобы отличиться от VBA

0 голосов
/ 21 января 2019

Я пытаюсь создать кнопку в форме доступа, которая принимает текущую запись и записывает информацию в документ Excel 

Public Sub ExportExcel()
Dim ObjEx As Object
Dim WhatIsThisVariableFor As Object
Dim Selec As Object
Dim Column As Integer
Dim Row As Integer

Dim CustName As String
Dim Org As String
Dim Contact As String
Dim Product As String
Dim Quantity As Integer

Dim rst As DAO.Recordset

Set ObjEx = CreateObject("EXCEL.APPLICATION")
Set WhatIsThisVariableFor = ObjEx.Workbooks.Add

'Set rst = CurrentDb.OpenRecordset("Select") <---- This will be used when I get the code working
Column = 1
Row = 1
CustName = "Test" '<---- This is only used for the test

Cells(Row, Column) = CustName

ObjEx.Visible = True

Set Selec = ObjEx.Selection
End Sub

Этот код создает документ Excel, но оставляет его пустым.Я думаю, что команда Cells(Row, Column) не работает, потому что она должна быть вызвана из Excel?Я не уверен (я очень новичок в VBA)

Как я могу писать в ячейки электронной таблицы из Access?

1 Ответ

0 голосов
/ 21 января 2019

Вам необходимо присвоить свою функцию Cells() объекту приложения Excel. 

ObjEx.ActiveSheet.Cells(Row, Column).Value = CustName

Я бы порекомендовал также явно выбрать объект рабочего листа: 

Dim ws As object
Set ws = ObjEx.Worksheets("Sheet1")

ws.Cells(row, column).value = CustName
...