0
我在电子表格中创建了一个发票模板,并使用附加的VBA代码从中创建报告(实质上,它将某些单元格值存储为另一个表格作为表格报告)。我想将这个Google电子表格“,并需要帮助将VBA转换为相应的JavaScript。你能帮我吗?来自发票模板的报告
感谢
Sub InvoiceReport()
Dim myFile As String, lastRow As Long
myFile = “C: \invoices\” & Sheets(“Sheet1”).Range(“B5”) & “_” & Sheets(“Sheet1”).Range(“F1”) & Format(Now(), “yyyy - mm - dd”) & “.pdf”
lastRow = Sheets(“Sheet2”).UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1
‘ Transfer data to sheet2
Sheets(“Sheet2”).Cells(lastRow, 1) = Sheets(“Sheet1”).Range(“B5”)
Sheets(“Sheet2”).Cells(lastRow, 2) = Sheets(“Sheet1”).Range(“F1”)
Sheets(“Sheet2”).Cells(lastRow, 3) = Sheets(“sheet1”).Range(“I36”)
Sheets(“Sheet2”).Cells(lastRow, 4) = Now
Sheets(“Sheet2”).Hyperlinks.Add Anchor: = Sheets(“Sheet2”).Cells(lastRow, 5), Address: = myFile, TextToDisplay: = myFile‘ Create invoice in PDF format
Sheets(“sheet1”).ExportAsFixedFormat Type: = xlTypePDF, Filename: = myFile
Application.DisplayAlerts = False
‘ create invoice in XLSX format
ActiveWorkbook.SaveAs“ C: \invoices\” & Sheets(“Sheet1”).Range(“B5”) & “_” & Sheets(“Sheet1”).Range(“F1”) & “_” & Format(Now(), “yyyy - mm - dd”) & “.xlsx”, FileFormat: = 51‘ ActiveWorkbook.Close
Application.DisplayAlerts = True
End Sub
这个问题有点宽泛。将表格保存为PDF是一项挑战,将这些值复制到另一个表格是另一个挑战。我会在两个不同的问题中一次解决这个问题,只有在试图自己解决这个问题之后才能解决这个问题。 SO上还有许多与将PDF表格导出为PDF有关的其他答案。 –
感谢道格拉斯,我已经更新我的查询,以更具体和我目前使用的代码。希望这增加了清晰度。 – user6254079
还有一件事,对于传输,您可以与您的预期输出是什么样的数据集共享一个电子表格?让回答你的问题的人更容易,所以他们不必开始假设你的数据是什么样的。 –