| |
▼ichinose さん：
返事が遅れてしまい申し訳ありません。
>▼チキ さん：
>おはようございます。
>
>>初めての投稿なのですがよろしくお願い致します。
>>質問の内容ですが、
>>
>>ダウンロードしてきたファイルがそれぞれフォルダの中に入っています。
>>そのフォルダ名は取得して"フォルダ名"というシートにA2から順に下へ一覧になっています。
ex
A
2 20050812
3 20050813
4 20050815
5 20050816
6 20050819
・
・
>>その一覧の名前のBOOKをA2から下に順に開いて、A1からB10000までコピーして
>>USD_JPYチャートというまとめるためのBOOKに順に貼り付けたいと思っていますが、うまくいきません。
>
>フォルダ名が実際、どのように入っているのか
>例を挙げてください。
C:\Documents and Settings\Owner\デスクトップ\為替レート\USD_JPY\レート以下に
tick_********_USD_JPYというフォルダがたくさんあり（********の部分は日付です。ex20050901)、
その下にUSD_JPY_bidというどのフォルダも共通の名前のファイルが入っています。
>それから、「うまくいかない」と記述するのではなく、
>
>「ｘｘｘという仕様で記述したコードですが、
>実際に実行してみると、何も起こらずに終了してしまいます」
>
>とか
>
>「コードのこの箇所でＸＸＸＸというエラーが発生します」
>
>等、詳細に記述してください。
申し訳ありません。何も起こらず終了してしまいます。
>
>
>>Sub 貼り付ける()
>>
>>Dim 取得フォルダ名 As String
>>Dim ファイル名 As String
>>
>>行 = 2
>>列 = 1
>>
>
>
>>Do While 取得フォルダ名 <> ""
>' ↑取得フォルダ名が未入力でない間は ループ
>' だけど、いきなり 未入力だから、ループしないでしょ？
>' 大きい間違いはここだと思います。
>>取得フォルダ名 = Workbooks("USD_JPYチャート").Sheets("フォルダ名").Cells(行, 1).Value
>>ファイル名 = "C:\Documents and Settings\Owner\デスクトップ\為替レート\USD_JPY\レート\取得フォルダ名\.csv"
>'この文字列と文字列変数の連結（だと思いますが）も記述が違うと思いますから、
>'過去ログを調べてください。
>
Do Loopを使ったプログラムを書くのは全く初めてなので、かなり見当違いのことをしてしまっているようです。
もう少し粘って調べてみます。
お返事ありがとうございます。
>>Workbooks(ファイル名).Open
>>Sheets("USD_JPY_bid").Range("A1:B10000").Copy
>>Workbooks("USD_JPYチャート").Sheets("レート").Cells(1, 列).Paste
>>行 = 行 + 1
>>列 = 列 + 2
>>
>>Loop
>>
>>End Sub
|
|
チキ
- 05/9/15(木) 20:51 -
