| |
初めて投稿させていただきます。
こんな方法ができるのかどうかというのを知りたくてGoogle検索をかけて
いましたら、教えていただけそうな掲示板を見つけてアドバイスを頂けな
いかと思い投稿させていただきました。
現在マクロでＶＢＡを触っております。
ファイルＡ.txtを読み込んで加工などをしたものbookＡ.xlsに書き出したい
のです。
ファイルＡ.txtを読み込んだ結果は以下の通りです。
| Ａ | Ｂ | Ｃ | Ｄ | Ｅ | Ｆ |
１| 種類 | 名 | 在庫 | | | |
２| 果物 |リンゴ| １ | | | |
３| 果物 |メロン| ４ | | | |
４| 果物 | モモ | ３ | | | |
５| 野菜 |トマト| ２ | | | |
６| 野菜 | 白菜 | １ | | | |
７| 野菜 |玉ねぎ| ３ | | | |
８| 果物 |バナナ| ２ | | | |
９| 野菜 | 大根 | ３ | | | |
10| 野菜 | ナス | １ | | | |
このファイルＡ.txtを読み込むためのマクロはすでに完成しています。
そこで、なんらかのマクロを利用してbookＡ.xlsに以下のように書き出せ
ないでしょうか？？果物シートには果物を、野菜シートには野菜を！！
すでに果物シート、野菜シートには名前の欄にはリンゴやバナナ、ナス、
大根と記入されている状態です。在庫の欄に数値をコピペできたらいいわけ
なんですけど・・・
| Ａ | Ｂ | Ｃ | Ｄ | Ｅ | Ｆ |
１| 名 | 在庫 | | | | |
２|リンゴ| １ | | | | |
３|メロン| ４ | | | | |
４| モモ | ３ | | | | |
５|バナナ| ２ | | | | |
６| | | | | | |
７| | | | | | |
８| | | | | | |
９| | | | | | |
10| | | | | | |
______________________________________
＼果物/＼野菜/
| Ａ | Ｂ | Ｃ | Ｄ | Ｅ | Ｆ |
１| 種類 | 名 | 在庫 | | | |
２| 野菜 |トマト| ２ | | | |
３| 野菜 | 白菜 | １ | | | |
４| 野菜 |玉ねぎ| ３ | | | |
５| 野菜 | 大根 | ３ | | | |
６| 野菜 | ナス | １ | | | |
７| | | | | | |
８| | | | | | |
９| | | | | | |
10| | | | | | |
_______ _______________________________
＼果物/＼野菜/
利用するユーザーが違うことからパソコン端末もことなっていることから、
bookＡのディレクトリを取得して動作するようになればと思います。
一応、以下のマクロは作ってあります。
ファイルＡ.txtの読み込みマクロ
Public buf1 As String
ChDir "C:\"
buf1 = Application.GetOpenFilename("*.txt,*.txt")
If buf1 = "False" Then Exit Sub
Workbooks.OpenText Filename:=buf1, _
Origin:=xlWindows, _
StartRow:=1, _
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, _
Tab:=False, _
Semicolon:=False, _
Comma:=True, _
Space:=False, _
Other:=False, _
FieldInfo:=Array(Array(1, 1), Array(2, 1), _
Array(3, 1), Array(4, 1), _
Array(5, 1), Array(6, 1), _
Array(7, 1), Array(8, 1)), _
TrailingMinusNumbers:=True
bookＡを読み込むためのマクロ
Public buf2 As String
Sub bookＡの指定()
ChDir "C:\"
buf2 = Application.GetOpenFilename("*.xls,*.xls")
If buf2 = "False" Then Exit Sub
End Sub
ファイルＡ.txtのＡ列とＢ列の値を読み込んでbookＡ.xlsのシート名とＡ列
を比較して、bookＡ.xlsの一致する箇所のＢ列にファイルＡ.txtのＣ列の値
をコピペできたらいいんだろうと思いますが・・・
以上、長文でわかりにくくて大変申し訳ありませんが何かアドバイスを頂けたらと思います。
|
|
sakura
- 05/3/22(火) 18:01 -
