0
私はスプレッドシートに請求書テンプレートを作成し、添付されたVBAコードを使用してレポートを作成しました(基本的に、特定のセル値を別のシートに表形式のレポートとして保存します)。 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として保存することは1つの課題であり、値を別のシートにコピーすることは別の方法です。私は、あなた自身でそれを理解しようとした後で、2つの異なる質問で一度にこれらの問題に取り組んでいます。スプレッドシートをPDFとしてエクスポートすることに関連する他にも多くの答えがあります。 –
Thanks Douglas、より具体的で、現在使用しているコードでクエリを更新しました。これが明快さを願っています。 – user6254079
もう1つ、転送のために、予想される出力とサンプルデータセットを含むスプレッドシートを共有できますか?誰でもあなたの質問に答えるのが簡単になるので、自分のデータがどのように見えるかを前提にする必要はありません。 –