0

だから、私はハイスコアをExcelファイルに保存する次のコードを持っています.または、この質問をしないように xlsx ファイルを保存する他の方法はありますか?

Imports EXC = Microsoft.Office.Interop.Excel

Private Sub highscoreSave()
    Dim app As EXC.Application
    Dim ws As EXC.Worksheet, wb As EXC.Workbook
    app = New EXC.Application()
    app.Visible = False
    wb = app.Workbooks.Open(My.Application.Info.DirectoryPath.ToString & "\highscore.xlsx")
    ws = wb.Worksheets(1)
    For index As Integer = 1 To 11
        ws.Cells(index, 1).Value = lst_name(index - 1)
        ws.Cells(index, 2).Value = lst_score(index - 1)
    Next
    wb.Save()
    wb.Close()
    app.Quit()
End Sub
4

2 に答える 2