- ベストアンサー
出力待ち行列のデータをエクセルに落としたい(iSeries,AS400)
会社のホストでAS400を使用しています。 CLやRPGのソース内を検索するコマンドがあり、 それを使用すると検索結果がスプールに一覧として格納されます。 現在は画面で表示してコピーして、エクセルに転記しています。 これが凄く面倒なのですが、スプールにたまったデータを、 直接エクセルに落とし込むようなやり方などあるのでしょうか？
- hikari_tai
- お礼率80% (192/239)
- その他（ITシステム運用・管理）
- 回答数1
- ありがとう数5
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
関連するQ&A
- AS/400のレコードのコピー方法について
AS/400のレコードのコピー方法について AS/400で管理している1つの物理ファイル(DB)から別の物理ファイルにデータをコピーする場合についての質問です。 現状、テーブル[A]と[B]が存在し、レコード様式や各フィールドなどは全く同じです。[A]をコピーして[B]を作った状態です。 この状態で[A]から一部のレコードを抽出して[B]にコピーをします。 その後、[B]でレコードを加工し、上記作業で[B]にコピーしなかった残りの[A]のレコードをコピーしたいと思います。 結果的に、最初のコピー作業で[B]にコピーされたレコード以外は件数も内容も全く同じ2つの物理ファイルになるという状況です。 ここで、解らないのですが、2回目の[A]から[B]へのコピーをコマンドで行う事はできないでしょうか？ CPYF コマンドを使用して、MBROPT(*ADD) にすればできそうだと思ったのですが、重複レコード(最初に[B]にコピーしたレコード)以外をコピーするという項目が見つからず困っております。 INCREL を使用するのかとも思いましたが、比較値にフィールド名を指定する事ができないため不可能です。 RPG3やCLを使えばできそうではあると思うのですが、この程度の機能がAS/400に基本機能として備わっていないとは思えずに調べていたのですが、どうしても見つかりません。 アドバイスをいただけると幸いです。 以上、よろしくお願いいたします。
- ベストアンサー
- その他（ITシステム運用・管理）
- エクセルマクロで一致データを検索
エクセルのマクロを使用して以下のことを行いたいです。 （※VBA初心者なので解説を書いていただけるとありがたいです。） ・商品マスタのCSVを読み込む。 30万件以上あるので、エクセルでは表示できません。 ・読み込んだ商品マスタに記載されている商品コードを、 商品データ一覧のエクセルファイルに自動で転記したい。 商品データ一覧のエクセルファイルには、「商品番号」「色」「サイズ」があります。 この3条件が商品マスタのものと一致する商品マスタのコードを転記したいです。 量が膨大なうえ、急ぎの作業なため、何卒よろしくお願いいたします。
- 締切済み
- Visual Basic
- AS400 印刷用ファイルからＣＳＶに変換する方法
AS400に無知な者です。 今現在使用しているASのバージョンすら わかっていません。 実行すると自動的にデータが集計され 印刷用ファイルができるプログラムがあります。 データ形式で作成することは選択できません。 現在はＡＳから印刷された帳票をみながら エクセルに入力したりと、 かなりお馬鹿なことをしています。 わざわざ印刷しなくても スプールにおちた印刷用ファイルを ＣＳＶなどＰＣ上で処理できるデータにかえる コマンド等はないものでしょうか？ 最初からデータ形式でおとせという つっこみがきそうですが どのファイルにアクセスして どういう処理をしてるのか全く持って不明のため 現在の実力では不可能です。 誰かたすけてくださいまし。
- ベストアンサー
- その他(データベース)
- 転記先のExcelを開かない方法
システムからWordの送り状をダウンロードし、その宛先をExcelの郵便管理簿に 転記しているのですが、いちいちExcelを開くのが手間なので、 省くことはできないでしょうか？ Wordのマクロ Sub 社名をコピー() If MsgBox("以下をコピーしてエクセルに転記しますか？" & vbLf & vbLf _ & LineSentence(5), vbYesNo) = vbYes Then エクセルに転記 End If End Sub Function LineSentence(posL As Long) As String With Selection .GoTo wdGoToLine, wdGoToAbsolute, posL .SetRange .Start, .Sentences(1).End .Copy LineSentence = .Text End With End Function Sub エクセルに転記() Dim ourR As String On Error Resume Next ourR = Selection.Text With GetObject(, "Excel.Application") .Visible = True .Run "見積コピー", ourR End With End Sub Excelのマクロ Sub 見積コピー(ourR As String) Sheets(Month(Now()) & "月").Select Range("C1048576").End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues End Sub
- ベストアンサー
- Excel（エクセル）
- エクセルのような表形式のデータ集はどこかにありませんか？
エクセルのような表形式のデータ集はどこかにありませんか？ 例えば 作曲家の作品名一覧とか 映画俳優の男優一覧とか。検索してみたけれど エクセルの使用方法の解説ばかりでだめでした。
- ベストアンサー
- その他MS Office製品
- AS/400の文字化けについて
お世話になります。 AS/400を使っての開発を行っているものですが、日本にあるAS/400を日本と中国で使用しているユーザーがいます。 ある登録機能で日本語ではない文字を中国で入力する為、ＤＢには文字化け（たとえば「・」等）でデータが格納され、そのデータをAS/400外のシステム(VB.net)で使用した場合に型変換エラーで処理がこけてしまいます。 日本語以外を入れないでください。というお願いはどうやら理解してもらえないらしく、 AS/400での入力時に文字化けしてしまうものは入力エラーとしたいのですが、その方法がわかりません。 漢字コード一覧表を作成し、不一致ならエラー。という案を教えていただいたのですが、その一覧表を作成するのが大変だと思うので、 もっと何か簡単にチェックできないかなぁ？と考えています。 良い方法をご存知の方教えていただけませんでしょうか？
- ベストアンサー
- その他(OS)
- エクセルのデータをwebフォームに転記したい
エクセルに数字の羅列があるのですが、直接webに手入力していくにはとても大変で困っております。 こちら（gooですが・・・）http://okwave.jp/qa/q5739589.htmlにぴったりのことが書いてあるのですが実際に使用してみると「ActiveXコンポーネントはオブジェクトを作成できません」とか怒られます。解決方法を教えていただければ幸いです。 追加ですがwebフォームがエクセルのようにセル状になっていて、指定の場所に転記する場合はどうしたらよろしいのでしょうか？
- ベストアンサー
- オフィス系ソフト
- AS400 CPYSPLFコマンドの使い方
CPYSPLFコマンドを使いたいのですが 具体的な構文がわかりません。 印刷用フォルダ「PRT10」にあるファイル「JAC110」を フォルダ「KEIRI」のファイル「QRYDATA」に移したいのです。 （PRT10には沢山のスプールファイルがあります。） http://www.onbedo.com/forCOMP/AS400/qa_os.html というページに Q: スプールファイルを保管するには? A: CPYSPLFを使用しましょう。 例) CRTPF FILE(MyLIB/MyPF) RCDLEN(200) IGCDTA(*YES) CPYSPLF FILE(MySPL) TOFILE(MyLIB/MyPF) CTLCHAR(*FCFC) これで物理ファイルMyPFに保管されます。 とアドバイスがあるのですが使えず困ってます。 よろしくお願いします。
- ベストアンサー
- その他(データベース)
- Excelに詳しい方クイックアクセスツールバー…？
ノートパソコンのExcelでクイックアクセスツールバーに アイコンを追加しようとしましたが、できません。 〔リボンにないコマンド〕の一覧が全く表示されず。 空白になってしまいます。 当然ながら 〔 追加(A)＞＞〕 のクリックボタンも薄く表示されるだけです。 Excelのバージョンはわかりませんが、同じ表示をデスクトップパソコンから 〔Excelのオプション〕のウィンドウをコピーして、一部消去して添附しました。 ノートパソコンは、Windows 10 を使用して居ます。 〔リボンにないコマンドの一覧を表示させる方法を教えてください。〕
- ベストアンサー
- Excel（エクセル）
- ACCESS VBA テーブルデータをEXCELに
こんにちは、表題のような内容で行き詰ってしまい質問させてもらいます。 現在、商品在庫のデータベースをACCESS2010を使用してなんとか完成させました。 といっても売上管理等しているわけではなく、単に商品のデータベースです。 【テーブル構成】 T_商品 T_ブランド T_ジャンル T_商品を基本にし、T_ブランド、T_ジャンルはルックアップ用です。 T_商品をデータソースとして、入力、検索用に「F_商品」 というフォームを作ってあります。 入力、検索作業ともに問題なく行えており、現在レコード数は400程度ですが今後5000程度までは増えると思います。 表題のようにEXCELを併用するのは、今回WEBショップをはじめ、利用しているECシステムではCSVで掲載商品データをインポートできるので、それを利用しようと思っております。 理想の動作的には、 上記「商品フォーム」でショップに掲載したい（CSVファイルに転記したい）商品を検索し、 「ショップ掲載リスト」などのボタンを作って押すことで「掲載用.xls」などのエクセルファイルにテーブルのフィールドから必要な「商品名」「ブランド」「価格」などを抜粋して転記、 ショップに掲載したい商品、複数をすべて転記したらエクセルファイルをCSVファイルとして保存し、ECシステムにアップロードです。 現在フォームにエクセルファイルに転記用のボタンを作り、VBAで指定のエクセルファイルを起動するところまででき、コードはネットで探して、以下のようになっております。 Private Sub 転記ボタン_Click() Dim objExcel Set objExcel = CreateObject("Excel.Application") objExcel.Visible = True objExcel.Workbooks.Open "エクセルファイルのパス.xlsx" End sub エクセルファイルはテーブルの定義がしてあり名前を「商品テーブル」としてあります。 ACCESS側のVBAでエクセルシート上の商品テーブル内の上から順に転記していくにはどういうACCESS VBAを書けばいいのでしょうか？ 上からというのは新しく転記する商品を次の行、次の行にということです。 http://okwave.jp/qa/q356182.html こちらの質問も参考にしてみましたが、「.Cells(i, 1) = RS.Fields("フィールド1")」のところでエラーになりました。。。 長々と的を得てない質問文になってしまいましたが、よろしくお願いいたします。
- 締切済み
- オフィス系ソフト
お礼
既に1年も経過していてすみません。 この件ですが、結局CPYSPLFでPFにした後、 ODBCでエクセルに落とし込むやり方で活用しています。
補足
早速アドバイスありがとうございます。 早速試してみます。