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
還有一件事,對於傳輸,您可以與您的預期輸出是什麼樣的數據集共享一個電子表格?讓回答你的問題的人更容易,所以他們不必開始假設你的數據是什麼樣的。 –