掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
マイドキュメントにあるExcelのファイルをVB.netから数値を代入するには？ (ID：109690)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
既存のExcelを開いてVB.netから数値を代入したいのですができません。 既存のファイルを開くのに Dim x1app As Object Dim filename As String x1app = CreateObject("Excel.Application") filename = Environment.GetFolderPath(Environment.SpecialFolder.Personal) Shell(x1app.Path & "\excel.exe """ & filename _& "\business.xls""", 1) を書きました。 VB.netからExcelに書き込むには Dim x1app As Excel.Application Dim x1book As Excel.Workbook Dim x1Sheet As Excel.Worksheet x1app = CType(CreateObject("Excel.Application"), Excel.Application) x1book = CType(x1app.Workbooks.Add, Excel.Workbook) x1Sheet = CType(x1book.Worksheets(1), Excel.Worksheet) x1Sheet.Cells(5, 13) = 5000 x1Sheet.Cells(6, 14) = 75 x1Sheet.Cells(7, 15) = "合計" x1Sheet.Range("B3").Formula() = "=Sum(R1C2:R2C2)" x1Sheet.Range("B3").Font.Bold = True x1Sheet.Application.Visible() = True でできます。 この二つをどのように組み込めばいいのでしょうか。 よろしくおねがいいたします。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.