ホーム   フォーラム   FAQ
 
メインメニュー
ログイン
ユーザー名:

パスワード:


パスワード紛失

EXCELのOLEによる読取がうまくいきません

このトピックの投稿一覧へ

なし EXCELのOLEによる読取がうまくいきません

msg# 1
depth:
0
前の投稿 - 次の投稿 | 親投稿 - 子投稿.1 .2 .3 .4 .5 .6 .7 | 投稿日時 2014-5-17 15:33
Ace_Nagashim  一人前   投稿数: 105
Win7Pro Sp1+MagicV10+EXCEL2013の環境で
ExcelのデータをOLEを用いて読み取るプログラムを作成中ですが
うまくいきません。
詳しい方のご教示をお願いします。

EXCELファイル名:C:\My Documents\Hoge.xls(97-2003形式)
 A    B     C
1 注番  品番   数量
2 012345 A101-223  10
3 012346 A122-334  20
4 012347 B203-445  30

親タスクで取り込むEXCELファイルを指定して、レコード後処理で
子タスクをCALLします。

子タスクは
レコードメイン
変数 D  Excel_Application    OLE
変数 E  Excel Workbook      OLE
変数 F  Excel Worksheet     OLE
変数 G  Excel Range       OLE
変数 H  1次配列         ベクトル
変数 I  2次配列         ベクトル
変数 J  最終行No         数値   #6
変数 K  V品番          文字   X8

タスク前処理
※ExcelファイルをOpen
外部コール  C=COM  Method Excel_Application.Workbooks.Open
          戻り値=Excel Workbook
          パラ1:Filename="で囲ったフルパスのEXCELファイル名
※ワークシート(No.1)をワークシート変数に格納
外部コール  C=COM  Get Excel_Application.Worksheets.Item
          戻り値=Excel Worksheet
          パラ1:Index=1
※ワークシートからRangeに格納
外部コール  C=COM  Get Excel Worksheet.Range
          戻り値=Excel Range
          パラ1:Cell1='A1' パラ2:Cell2='C4'
※ワークシートの最終行を取得
外部コール  C=COM  Get Excel Worksheet.Range.Rows.Count
          戻り値=最終行No
※Rangeから二次元配列にテーブルを格納
外部コール  C=COM  Get Excel Range.Value2
          戻り値=2次配列

レコード後処理
項目更新  1次配列  値:VecGet (2次配列,2)
項目更新  V品番   値:VecGet (1次配列,2)

このようにテストプログラムを作成して試していますが
ワークシートの最終行の取得・品番の取得が行えません。
どなたかのご教示をお願いします。
投票数:0 平均点:0.00

投稿ツリー

  条件検索へ


Copyright (C) Magic Software Japan K.K. All Rights Reserved.
個人情報保護方針 会員規約