0

私の目標は、既に作成されたファイルを保存または開くオプションをポップアップさせようとすることです。

これが私のコードです:

 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) = "PERIOD"
        xlWorkSheet.Cells(1, 2) = "PARTS_NO_FG"
        xlWorkSheet.Cells(1, 3) = "QTY_ASSY"
        xlWorkSheet.Cells(1, 4) = "COSTING1"

        xlWorkSheet.Cells(2, 1) = "201212"
        xlWorkSheet.Cells(2, 2) = "01125E6041"
        xlWorkSheet.Cells(2, 3) = "5"
        xlWorkSheet.Cells(2, 4) = "0"


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

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

次に、このプログラムを実行したときにポップアップする方法 VB.NET ありがとう

4

1 に答える 1

2

アラートをオンにするだけです。それは問題を解決するはずです

 Application.DisplayAlerts = True

 workbook.SaveAs(filePath)

 Application.DisplayAlerts = True

ソース: http://p2p.wrox.com/vb-how/63900-disabling-second-excel-save-prompt.html

shasurからの回答を修正

編集：あなたの場合

 xlApp.DisplayAlerts = True

 xlWorkbook.SaveAs(filePath)

 xlApp.DisplayAlerts = True

xlApp.Visible = True も試してください

表示されない場所/理由についてのポインタを提供できる場合があります。

于 2013-04-29T20:54:36.077 に答える