Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


8940 / 13644 ツリー ←次へ | 前へ→

【30173】初歩の初歩なのですが、 rakkyo 05/10/21(金) 10:22 質問[未読]
【30176】Re:初歩の初歩なのですが、 Statis 05/10/21(金) 10:40 発言[未読]
【30178】Re:初歩の初歩なのですが、 rakkyo 05/10/21(金) 10:42 質問[未読]
【30181】Re:初歩の初歩なのですが、 Statis 05/10/21(金) 10:59 回答[未読]
【30182】Re:初歩の初歩なのですが、 Jaka 05/10/21(金) 11:00 回答[未読]
【30183】Re:初歩の初歩なのですが、 rakkyo 05/10/21(金) 11:04 質問[未読]
【30188】Re:初歩の初歩なのですが、 Jaka 05/10/21(金) 12:04 回答[未読]
【30189】Re:初歩の初歩なのですが、 rakkyo 05/10/21(金) 12:51 質問[未読]
【30194】Re:初歩の初歩なのですが、 Jaka 05/10/21(金) 13:59 発言[未読]
【30195】Re:初歩の初歩なのですが、 rakkyo 05/10/21(金) 14:23 質問[未読]
【30196】Re:初歩の初歩なのですが、 Jaka 05/10/21(金) 14:38 回答[未読]
【30198】Re:初歩の初歩なのですが、 rakkyo 05/10/21(金) 14:47 質問[未読]
【30199】Re:初歩の初歩なのですが、 Jaka 05/10/21(金) 14:54 発言[未読]
【30200】Re:初歩の初歩なのですが、 rakkyo 05/10/21(金) 14:56 質問[未読]
【30203】Re:初歩の初歩なのですが、 Jaka 05/10/21(金) 15:27 発言[未読]
【30206】Re:初歩の初歩なのですが、 rakkyo 05/10/21(金) 17:06 お礼[未読]

【30173】初歩の初歩なのですが、
質問  rakkyo  - 05/10/21(金) 10:22 -

引用なし
パスワード
   cのあるフォルダから
エクセルファイルを読み込みたいのですが
(ヘルプが見れない環境でDir関数を調べればいいとはわかってるのですが
教えていただけませんか?

【30176】Re:初歩の初歩なのですが、
発言  Statis  - 05/10/21(金) 10:40 -

引用なし
パスワード
   ▼rakkyo さん:
>cのあるフォルダから
>エクセルファイルを読み込みたいのですが
>(ヘルプが見れない環境でDir関数を調べればいいとはわかってるのですが
>教えていただけませんか?

こんにちは
調べてどこがわかりませんか?
あるフォルダのすべてのエクセルファイルですか?

【30178】Re:初歩の初歩なのですが、
質問  rakkyo  - 05/10/21(金) 10:42 -

引用なし
パスワード
   ひとつのファイルですが
ファイル名が毎日変わるので
*.xlsにしようと思ってるのですが。

  AA = Dir$("C:\ddd\*.xls")
  Workbooks.Open Filename:=AA, UpdateLinks:=0
  Workbooks(AA).Activate

とやってもファイルを開けないので・・・。

【30181】Re:初歩の初歩なのですが、
回答  Statis  - 05/10/21(金) 10:59 -

引用なし
パスワード
   こんにちは
パス名がないからだと思います。

これでどうかな?

Dim MyFi
Const MyPh As String = "C:\ddd\"

MyFi = Dir(MyPh, vbNormal)
If MyFi = "" Then Exit Sub
Workbooks.Open Filename:=MyPh & MyFi, UpdateLinks:=0

【30182】Re:初歩の初歩なのですが、
回答  Jaka  - 05/10/21(金) 11:00 -

引用なし
パスワード
    こんにちは。

▼rakkyo さん:
>  AA = Dir$("C:\ddd\*.xls")
   MsgBox AA 'といれて、AAの値を確認してみてください。
>  Workbooks.Open Filename:=AA, UpdateLinks:=0
>  Workbooks(AA).Activate  '← いらない

ファイルを開くには、基本的にはフルパスが必要です。
ブックを開くと開いた物が必ずアクティブになります。

【30183】Re:初歩の初歩なのですが、
質問  rakkyo  - 05/10/21(金) 11:04 -

引用なし
パスワード
   いらないのを消して、
MsgBox AA
で確認したら
ちゃんとファイルを読んでいたので、

その後の、ソースが違っていたようです・・・。

ほかのところからシートの空白をとるっていうソースをそのまま
ひっぱってきた↓のですが・・。

RowA = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
ColA = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column


ReDim vntB(1 To RowA, 1 To ColA)
For i = 1 To RowA
  vntA = Cells(i, "A").Resize(, ColA).Value
   m = 1
    For K = 1 To ColA
     If vntA(1, K) <> "" Then
      vntB(i, m) = vntA(1, K)
      m = m + 1
     End If
    Next
Next

Range("A1").Resize(RowA, ColA).Value = vntB

【30188】Re:初歩の初歩なのですが、
回答  Jaka  - 05/10/21(金) 12:04 -

引用なし
パスワード
   こんな感じでもいいと思います。

Dim WBK As Workbook
BNst = Dir("フルパス")
Set WBK = Workbooks.Open(BNst)
ADR = WBK.Sheets(1).UsedRange.Address
WBK.Sheets(1).UsedRange.Copy
ThisWorkbook.Sheets(3).Range(ADR).PasteSpecial (xlPasteAll)
Application.CutCopyMode = False
WBK.Close
Set WBK = Nothing

【30189】Re:初歩の初歩なのですが、
質問  rakkyo  - 05/10/21(金) 12:51 -

引用なし
パスワード
   ▼Jaka さん:
>こんな感じでもいいと思います。
>
>Dim WBK As Workbook
>BNst = Dir("フルパス")
>Set WBK = Workbooks.Open(BNst)
>ADR = WBK.Sheets(1).UsedRange.Address
>WBK.Sheets(1).UsedRange.Copy
>ThisWorkbook.Sheets(3).Range(ADR).PasteSpecial (xlPasteAll)
>Application.CutCopyMode = False
>WBK.Close
>Set WBK = Nothing

Dim WBK As Workbook
BNst = Dir("C:\BBB\*.xls")
Set WBK = Workbooks.Open(BNst)
ADR = WBK.Sheets(1).UsedRange.Address
WBK.Sheets(1).UsedRange.Copy
ThisWorkbook.Sheets(3).Range(ADR).PasteSpecial (xlPasteAll)
Application.CutCopyMode = False
WBK.Close
Set WBK = Nothing

でやってみたのですが、エラーになります。。。

【30194】Re:初歩の初歩なのですが、
発言  Jaka  - 05/10/21(金) 13:59 -

引用なし
パスワード
   ▼rakkyo さん:
>Dim WBK As Workbook
>BNst = Dir("C:\BBB\*.xls")
>Set WBK = Workbooks.Open(BNst)
>でやってみたのですが、エラーになります。。。

え〜とパスを入れなかったからです。
Set WBK = Workbooks.Open("C:\BBB\" & BNst)

【30195】Re:初歩の初歩なのですが、
質問  rakkyo  - 05/10/21(金) 14:23 -

引用なし
パスワード
   ▼Jaka さん:
>▼rakkyo さん:
>>Dim WBK As Workbook
>>BNst = Dir("C:\BBB\*.xls")
>>Set WBK = Workbooks.Open(BNst)
>>でやってみたのですが、エラーになります。。。
>
>え〜とパスを入れなかったからです。
>Set WBK = Workbooks.Open("C:\BBB\" & BNst)

あ、恥ずかしいです・・・。しかし、
パスを入れてやってみましたら、インデックスが有効範囲にありませんと・・・。

【30196】Re:初歩の初歩なのですが、
回答  Jaka  - 05/10/21(金) 14:38 -

引用なし
パスワード
   >ThisWorkbook.Sheets(3).Range(ADR).PasteSpecial (xlPasteAll)
           ↑
       この辺、このままで合ってますか?

【30198】Re:初歩の初歩なのですが、
質問  rakkyo  - 05/10/21(金) 14:47 -

引用なし
パスワード
   ▼Jaka さん:
>>ThisWorkbook.Sheets(3).Range(ADR).PasteSpecial (xlPasteAll)
>           ↑
>       この辺、このままで合ってますか?

走るには走りましたが、
(コピーされた・・・)

このコードって空白を削除するっていうことはできてないですよね??

【30199】Re:初歩の初歩なのですが、
発言  Jaka  - 05/10/21(金) 14:54 -

引用なし
パスワード
   ▼rakkyo さん:
>このコードって空白を削除するっていうことはできてないですよね??
ヘルプでPasteSpecial メソッドを調べてみてください。

【30200】Re:初歩の初歩なのですが、
質問  rakkyo  - 05/10/21(金) 14:56 -

引用なし
パスワード
   ▼Jaka さん:
>▼rakkyo さん:
>>このコードって空白を削除するっていうことはできてないですよね??
>ヘルプでPasteSpecial メソッドを調べてみてください。

あヘルプが見れないので、・・・。

でも、走ったのですが空白は取れてないのです・・・。
(何だか環境も私の技能もなく申し訳ないです・・・)

【30203】Re:初歩の初歩なのですが、
発言  Jaka  - 05/10/21(金) 15:27 -

引用なし
パスワード
    PasteSpecialじゃ出来ませんでした。(勘違いしてた。)
貼り付けた後に消す事になると思います。

編集→ジャンプ→セル選択→空白セル→OK
セルの削除

をマクロ記録してみてください。
これをもとに作成して下さい。

追伸
マクロをやるならヘルプはインストールしてください。
標準インストールじゃ入らなかったと思いますから、追加で入れてください。

【30206】Re:初歩の初歩なのですが、
お礼  rakkyo  - 05/10/21(金) 17:06 -

引用なし
パスワード
   ▼Jaka さん:
> PasteSpecialじゃ出来ませんでした。(勘違いしてた。)
>貼り付けた後に消す事になると思います。
>
>編集→ジャンプ→セル選択→空白セル→OK
>セルの削除
>
>をマクロ記録してみてください。
>これをもとに作成して下さい。
>

がんばってみます・・・。
ありがとうございました。

>追伸
>マクロをやるならヘルプはインストールしてください。
>標準インストールじゃ入らなかったと思いますから、追加で入れてください。

会社のPCで無理なのです・・・

8940 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free