• 締切済み

Excelに値がセットされず出力されてしまう

お世話になります。 VB6でファイルを取り込んで、取り込んだ値を合算して、 Excel出力させる、という処理を行うPGがあります。 約1年半くらい、問題なく動作していたんですが、 ここ最近になって、ファイルから取り込んだ値が、 エクセルにセットされずに、出力されてしまった、という事が起こったと連絡がありました。 正常な処理ですと、7枚くらい印刷されるのですが、 その場合は、その中の1枚(3ページ目くらい)だけが、何も値がセットされていませんでした。 同じEXEで、同じ雛形で、同じデータで、試したのですが、正常に処理されてしまい、再現はできませんでした。 質問なのですが、 何も値がセットされないで、エクセルの雛形のみが印刷されてしまう場合、 たとえば、使用しているPCに負荷がかかってたりすると、そういう現象が起こるのでしょうか? そのほか、何か考えられる事とかありませんでしょうか? ご存知の方、いらっしゃいましたら、 ご教授のほど、よろしくおねがいいたします

みんなの回答

回答No.2

#1 さんと同じ。再現テストの条件がまだまだ少なすぎます。 ところで、エラー処理とか書いてあります? 案外エラーが起きていてもエラー処理ですっ飛ばされてるってこともあります。

全文を見る
すると、全ての回答が全文表示されます。
  • taseki
  • ベストアンサー率66% (155/233)
回答No.1

もう少し情報が欲しいところですが…(たとえば読み込むデータの形式など)。 おっしゃっているような現象が起きたとき、セオリーとしては「同じ条件で再現」というのが基本ですから、 > 同じEXEで、同じ雛形で、同じデータで、試した 上記の他に、問題のPCと違うところはありませんか? たとえば最近Excelをバージョンアップしたかオプション変更や入れなおした、そのVBのEXEが依存するコンポーネントに影響する何かをインストールまたは変更した、あるいは、本当に完全に同じデータなのか、受け渡しの段階などで改行コードが変わってしまったとか(テキストなら)、出力先ファイルが「書込み禁止」になっている、などなど…、考えられることは多すぎて…。

全文を見る
すると、全ての回答が全文表示されます。

関連するQ&A

  • Excelで値貼り出力をするVBAは作れますか?

    Excelで値貼り出力をするVBAは作れますか? Excel2003を業務で使用しています。 SUMPRODUCTなどのいろんな関数を使って売上げ報告書を集計し、 取引先に送っているのですが、計算式や参照式でファイルが重くなっているので、 値貼りをしたファイルを作成したいのです。 そこで、VBAを使って以下のどちらかを実現することは可能でしょうか。 ・報告書の全シートの全書式(罫線・色)と値を別ファイルに出力 ・書式のみ、全て空欄の別ファイルに全シートを値貼り これが出来るととても助かるので、ご教示ください。宜しくお願いいたします。

  • .netからexcel操作の処理速度が異常に遅い

    VB2005にてエクセルへ値をセットし印刷するPGを作成しております。 その際、データ件数が200件ほどしかないのですが すべてセットし印刷が始まるまで3分ほどかかります。 特にややこしい処理ではなく、for文でループさせながら セットしているだけです。 range、cellsどちらでやっても変わらずでした。 これくらいかかるのが普通なのでしょうか??

  • ADOレコードセットをExcelファイルへエクスポート

    ADOレコードセットをExcelファイルへエクスポート ADOのレコードセットをExcelファイルへ出力したいと考えています。 レコードセットを使用した場合、TransferSpreadsheet の様なメソッドは使えないのでしょうか? ファイルサーバーにAccessクエリを作成する事も考えたのですが、多数で使用する為、 トラブルが怖いので避けました。 レコードセットを直接出力できるメソッドor関数等はないものでしょうか? アドバイスよろしくお願いいたします。 m(__)m

  • ExcelにCSV取り込み時、値がおかしくなる

    思うように再現出来ないため曖昧な質問となってしまうのですが、 ExcelからCSVファイルを取りこむ際、値がおかしくなってしまうことがあります。 それほど大きなデータではなく、セミコロン区切りされた10列50行ほどのデータです。 現象というのが、CSVファイルを取り込んだ際特定の列の値全てが、元のCSVファイルの値と見比べて頭3文字消えています。 CSVファイルでは1234567となっているものがExcelに取り込むと4567となっていたりします。 冒頭で言ったようにうまく再現出来ません。 どなたかご存じの方居られましたらよろしくお願いいたします。

  • Excel出力後のExcelの起動について

    Vb側からデータをExcelに出力し、その画面を表示させたまま 出力したExcelを確認しようと思ったところ、Excelは起動するものの シートが表示されない現象が起こりました。 出力後のExcelの終了(解放?)のロジックは下記の通りです。 Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet Set xlApp = New Excel.Application Set xlBook = xlApp.Workbooks.Add Set xlSheet = xlBook.Worksheets.Add … … Sheetへの出力処理 … … Set xlApp = Nothing Set xlBook = Nothing Set xlSheet = Nothing この現象の回避方法がありましたらご教授ください。 Windows2000 Vb6.0 SP5 Excel2000

  • エクセルからPDFに出力する場合

    エクセルからPDFに出力する場合で 出力したいエクセルデータに複数のシートが存在し、シートを作業グループとして PDFに印刷する場合ですがシートごとに保存ファイル名を要求されて面倒です。 一連の出力はできないのでしょうか?

  • 入力フォームの値をEXCELに出力したい(asp)

    asp(.NETではありません)で、入力フォームを作っています。 そして送信ボタンを押したら、フォームの値をEXCELに出力したいのです。 現在、aspの中にvbsを記述し、ボタンを押したらEXCELを開く・・・ところまでは出来ているのでそこにリストで選択された値を出力したいのですが、どうしても値を渡す事ができません。 <SCRIPT LANGUAGE="VBScript"> <!-- Sub cmdMain_OnClick set objExcel= CreateObject("Excel.Application") objExcel.Visible=True objExcel.Workbooks.Open "C:\sample.xls" End Sub --> </SCRIPT> <html> <head> <title>フォームの入力値を受け取る</title> </head> <body> <form method="post" action="form.asp"> <select name="list"> <option value="test1">テスト1</option> <option value="test2">テスト2</option> <input type="button" name="cmdMain" value="作表"> </form> </body> </html> このあと、どのようにしたらリストの値をEXCELに渡す事ができるのでしょうか。 お力をお貸し下さい、宜しくお願い致します。

  • excel vbaでのxml出力がわかりません

    EXCEL VBAでAPIを使い、XMLファイルを出力するプログラムを作っているのですが、うまくいきません。 機能としましては、指定したセルの範囲内にユーザーが入力した値を、XMLファイルとして出力するというものです。 ただXMLファイルを出力するだけなら自力でできたのですが、XMLファイルにセルの値を入れることができません。 どなたかご教授願います。

  • VB2008 エクセル出力

    VB2008 エクセル出力 教えていただけると助かります VB6.0使用時にエクセル出力をするために下記のようなプログラムで出力していました ※「Microsoft Excel 9.0 Object Library」を参照 Dim xlApp As EXCEL.Application Dim xlBook As EXCEL.Workbook Dim xlsheet As EXCEL.Worksheet Dim File As String File = App.Path + "\EXCEL\" + "フォーム.xls" Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.Workbooks.Open(File) Set xlsheet = xlBook.Worksheets("テスト") xlsheet.Range("A1") = "テスト" 'フォルダ作成 If Dir("D:\", vbDirectory) = "" Then Call Mkdirs("D:\テスト") 'Worksheetを名前をつけて保存します。 xlApp.DisplayAlerts = False xlsheet.SaveAs "D:\テスト\テスト.xls" xlApp.Quit Set xlApp = Nothing Set xlBook = Nothing Set xlsheet = Nothing VB2008の場合だとどのように書けば同じように動きますか ※色々試してみましたがダメでした 「Microsoft Excel 12.0 Object Library」を参照しています

  • 処理中に変数の値が変わってしまう

    Webページでセッションに値を格納し処理を行っています。 クラスをserialize()しセッションに格納して同じページで利用しています。 このセッションに格納した値がFireFoxでは想定通りに動くのですが、 IE6.0だと特定の個所のみ突然値が変わってしまいます。 ページの一番最後で出力したセッションの値が、 次ページの一番最初で出力した場合値が変わっています。 ファイルにserialize()したデータを書き込んで見たのですが、 正しいデータを持っているにもかかわらず、 書き込んだデータは異常な値でした。 また、書き込んだ後に画面に値を表示しても正常に表示されました。 $aを画面に表示     → 正常 $aをファイルに書き込み → 異常 $aを画面に表示     → 正常 環境は PHP5.1.2 Apache2.0.48 RedHatLinux9 です。 宜しくお願いします。

    • 締切済み
    • PHP
このQ&Aのポイント
  • ある人が嫌いな人を見つけると、避けたり無関心になったりを繰り返す行動を取っています。
  • このような行動の背後には、心理的な要素が関与している可能性があります。
  • 人は嫌いな相手から遠ざかることで、自分自身を守ろうとする傾向があると言われています。
回答を見る