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 -
引用なし
パスワード
   ｃのあるフォルダから
エクセルファイルを読み込みたいのですが
（ヘルプが見れない環境でDir関数を調べればいいとはわかってるのですが
教えていただけませんか？
【30176】Re:初歩の初歩なのですが、
発言  Statis  - 05/10/21(金) 10:40 -
引用なし
パスワード
   ▼rakkyo さん：
>ｃのあるフォルダから
>エクセルファイルを読み込みたいのですが
>（ヘルプが見れない環境で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じゃ出来ませんでした。（勘違いしてた。）
貼り付けた後に消す事になると思います。

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

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

追伸
マクロをやるならヘルプはインストールしてください。
標準インストールじゃ入らなかったと思いますから、追加で入れてください。
【30206】Re:初歩の初歩なのですが、
お礼  rakkyo  - 05/10/21(金) 17:06 -
引用なし
パスワード
   ▼Jaka さん：
>　PasteSpecialじゃ出来ませんでした。（勘違いしてた。）
>貼り付けた後に消す事になると思います。
>
>編集→ジャンプ→セル選択→空白セル→ＯＫ
>セルの削除
>
>をマクロ記録してみてください。
>これをもとに作成して下さい。
>

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

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

会社のPCで無理なのです・・・
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8940 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free