| |
▼masuｋun さん：
シート２へ書き込みをするﾌﾟﾛｼｰｼﾞｬです。
テストしてないのでｴﾗｰがあるかも知れませんが。
Open "フルパス￥ファイル名.csv" For Input As #1 ’’ﾒｿｯﾄﾞとClose #1
を調べてみてください、（すみません今週はﾊﾞｶﾝｽで来週いっぱいネット環境とは無縁になります）
シート２へデーターがカキコされます（方法は色々在ります）
本当に申し訳ありません、ｃｓｖを開かずに読み込みする方法とかあります、とりあえず動作確認も含めて、したのコードをトライしてみてください。
シートで管理するより簡単です。（データーが多い時はﾌｧｲﾙを開いて csvdat = SHT01.Cells(2, 2).Resize(20, 6).Valueで配列に入れることも出来ます。）
一発で決まるｺｰﾃﾞｨﾝｸﾞを教えてもらってもその後の応用＆拡張性が困難になりますので、がんばってください（帰ってきたらかならず見ますのでごめんなさい）
BY パン
Sheets("Sheet2").Select
Open "フルパス￥ファイル名.csv" For Input As #1
GYO = 1
For XX = 3 To 10 ''''8項目ﾃﾞｰﾀｰを拾う’’’’’
lngREC = lngREC + 1
Input #1, x(1), x(2), x(3), x(4), x(5), x(6), x(7), x(8)
GYO = GYO + 1
Range(Cells(GYO, 1), Cells(GYO, 8)).Value = x
Next XX
Close #1
End Sub
>▼パン さんへ、回答有難う御座いました。
>
>>勤務管理ﾌｫﾙﾀﾞの中にに個人ﾌｫﾙﾀﾞを作り社員番号別に”001.ｃｓｖ”と言うような
>>ﾌｧｲﾙを作ります（基本情報ﾌｧｲﾙの社員番号を元に複数のsheet("個人表")と同等）
>>後は管理すればよいのですが、、、、
>>個人表に入力し保存処理、大まかな流れで解りにくいかもしれません。
>>単純に説明すると、１００シートコピーしたものをCSVﾌｧｲﾙで管理することです。
>
>
>1つのbookの中の複数のsheet("個人表")でなく、個人毎に別々のcsvファイルに保存して行くと言う意味ですね。しかし、どう管理するのですか？一度csvファイルで保存したファイルを呼び出したり、手直ししたりするにはどうするのですか？
>
>お手数ですが今一度教えて下さい。宜しくお願いします。
|
|
パン
- 06/10/3(火) 0:38 -
