Экспорт в файл шаблона Excel, но диапазоны количества не импортируются - PullRequest
Новая
       15

Экспорт в файл шаблона Excel, но диапазоны количества не импортируются

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

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

Я пытался напрямую импортировать весь файл, но он работает неправильно.Я возился с этим, но безрезультатно.

Private Sub Command24_Click()
Dim appexcel As Excel.Application
Dim ExcelBook As Excel.Workbook
Dim ExcelSheet As Excel.Worksheet
Dim NameofBook As String


Set appexcel = Excel.Application

Set ExcelBook = Excel.Workbooks.Open("C:\Users\Aiden\Desktop\access folder\VExport1.xlsx")

Set ExcelSheet = ExcelBook.Worksheets("VExport")
ExcelSheet.Range("B2:B1499").FormulaR1C1 = Me.[SearchQ subform].Form.[VENDOR NAME]
ExcelSheet.Range("C2:C1499").FormulaR1C1 = Me.[SearchQ subform].Form.[Vendor No]
ExcelSheet.Range("J2").FormulaR1C1 = Me.[SearchQ subform].Form.[Rental Day]
ExcelSheet.Range("K2").FormulaR1C1 = Me.[SearchQ subform].Form.[Rental Week]
ExcelSheet.Range("L2").FormulaR1C1 = Me.[SearchQ subform].Form.[Rental Month]


'Make the instance of Excel visible
appexcel.Visible = True

'Clean up memory


Set ExcelSheet = Nothing
Set ExcelBook = Nothing
Set appexcel = Nothing


End Sub

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

...