解決済み

Excelファイルへの書き込み

  • すぐに回答を!
  • 質問No.299045
  • 閲覧数197
  • ありがとう数2
  • 気になる数0
  • 回答数1
  • コメント数0

お礼率 49% (71/144)

検索条件を入力して、抽出されたデータをExcelファイルへ出力したいのですが、
どのようにすればよいでしょうか?
サンプルプログラム等あればご紹介ください。
通報する
  • 回答数1
  • 気になる
    質問をブックマークします。
    マイページでまとめて確認できます。

質問者が選んだベストアンサー

  • 回答No.1
レベル12

ベストアンサー率 65% (242/372)

xlsファイルへの出力部分のみ掲載しておきます。
実際にサーバ側IIS5+Excel2000環境で動作確認済みです。

<%@ LANGUAGE="VBScript" %>
<%
Option Explicit
'On Error Resume Next
'Err.Clear

Dim objExcelApp
Dim objExcelBook
Dim objExcelSheets
Dim objExcelSheet

Set objExcelApp = CreateObject("Excel.Application")
  If Err Then
    Response.Write  Err.Description
  Else
    objExcelApp.Workbooks.Add
    Set objExcelBook = objExcelApp.ActiveWorkbook
    Set objExcelSheets = objExcelBook.Worksheets
    Set objExcelSheet = objExcelBook.Sheets(1)

    objExcelSheet.Activate
    objExcelApp.Application.Visible = False

    With objExcelSheet
      .Range("A1").Value = "123"
      .Range("A2").Value = "456"
      .Range("A3").Formula = "=A1+A2"
    End With

    '--- ファイルを保存
    Call objExcelBook.SaveAs("C:\ExcelSaveDir\sample.xls")

    '--- Excelの終了
    objExcelApp.Quit

    Set objExcelSheet = Nothing
    Set objExcelSheets = Nothing
    Set objExcelBook = Nothing
  End If
Set objExcelApp = Nothing
%>

※インデントに全角スペースを使用していますので
※適当にタブや半角スペースに置き換えて下さい。
お礼コメント
snowsaab

お礼率 49% (71/144)

丁寧な回答ありがとうございますm(__)m
これで早速、やってみたいと思います。
投稿日時 - 2002-06-25 13:43:18
このQ&Aのテーマ
このQ&Aで解決しましたか?
AIエージェント「あい」

こんにちは。AIエージェントの「あい」です。
あなたの悩みに、OKWAVE 3,500万件のQ&Aを分析して最適な回答をご提案します。

関連するQ&A
こんな書き方もあるよ!この情報は知ってる?あなたの知識を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する

特集


より良い社会へ。感謝経済プロジェクト始動

ピックアップ

ページ先頭へ