0

私の目標は、作成した Excel をダウンロードすることです。

これまでのコードは正しく動作します:

Dim xlApp As Excel.Application
        Dim xlWorkBook As Excel.Workbook
        Dim xlWorkSheet As Excel.Worksheet
        Dim misValue As Object = System.Reflection.Missing.Value

        xlApp = New Excel.ApplicationClass
        xlWorkBook = xlApp.Workbooks.Add(misValue)
        xlWorkSheet = CType(xlWorkBook.Sheets("sheet1"), Excel.Worksheet)
        xlWorkSheet.Cells(1, 1) = "RECORD_STATUS"
        xlWorkSheet.Cells(1, 2) = "VENDOR_NO"
        xlWorkSheet.Cells(1, 3) = "PARTS_NO"
        xlWorkSheet.Cells(1, 4) = "EFECTIVE_DATE"
        xlWorkSheet.Cells(1, 5) = "CURRENCY_CODE"
        xlWorkSheet.Cells(1, 6) = "PRICE"


        xlWorkSheet.Cells(2, 1) = "A"
        xlWorkSheet.Cells(2, 2) = "NSEA"
        xlWorkSheet.Cells(2, 3) = "13231JX02A"
        xlWorkSheet.Cells(2, 4) = "2013/03/03"
        xlWorkSheet.Cells(2, 5) = "IDR"
        xlWorkSheet.Cells(2, 6) = "10"

        xlWorkSheet.SaveAs("D:\TemplateVendor.xlsx")

        xlWorkBook.Close()
        xlApp.Quit()
        releaseObject(xlApp)
        releaseObject(xlWorkBook)
        releaseObject(xlWorkSheet)

これはドライブ D に保存されます。デスクトップ パスに保存してファイルを自動ダウンロードするにはどうすればよいでしょうか。

4

1 に答える 1

1

これを試して ..

path = Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory)

xlWorkSheet.SaveAs(path & "TemplateVendor.xlsx")

ここで読むことができる自動ダウンロードについて

于 2013-05-10T04:07:05.323 に答える