Excelマクロでフォルダのコピーができない問題について
- Excelマクロでフォルダをコピーする方法について調査していましたが、うまく動作しない問題が発生しました。
- 問題としては、マクロ内でパスの指定がうまくできていないため、フォルダのコピーができない状況です。
- 具体的には、マクロ内で変数にパスを代入し、その変数を使ってコピー処理を行おうとしていますが、「パスが見つかりません」というエラーが発生しています。
- ベストアンサー
エクセルマクロでフォルダのコピーがしたい
こんにちわ 色々調べてフォルダのコピーはできたのですが、色々いじっていて分からないことが出てきたので質問に来ました。 やりたいことはフォルダをコピーしたいのですが、それぞれ名前を自動で変えようと思い下記(1)を元に下記(2)を作ってみましたが、動きませんでした。 (1)いくつかのサイトを見て動いたマクロ sub test() Dim myFSO As New FileSystemObject myFSO.CopyFolder "C:\test", "C:\test2" End Sub (2)ちょっといじって動かないマクロ sub test() Dim myFSO As New FileSystemObject Dim name As String Dim name2 As String name = "C:\test" name2 = "C:\test2" myFSO.CopyFolder "name", "name2" End Sub 「パスが見つかりません」と出てきたので、読み込んでいないのだとは思うのですが、どうしたら動くかアドバイスをいただきたいです。 よろしくお願いします。
- osarusan0214
- お礼率66% (210/316)
- オフィス系ソフト
- 回答数2
- ありがとう数3
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
＞myFSO.CopyFolder "name", "name2" 変数を""で囲むと、それは変数ではなくただの文字列になります。 "name" が、name という文字列になるということです。 で、""を外してやります。 myFSO.CopyFolder name, name2 以上です。
その他の回答 (1)
- shino719
- ベストアンサー率50% (11/22)
> myFSO.CopyFolder "name", "name2" 上記の行のname、name2は変数なので、 ダブルコーテーションで括る必要なないと思います。 ダブルコーテーションで括ってしまうと nameというフォルダをname2にリネームして コピーする処理になってしまうと思います。 正しくは myFSO.CopyFolder name, name2
お礼
初歩の初歩でしたね＾＾； 気づかなかったですToT ありがとうございました＾＾
関連するQ&A
- エクセルのＶＢＡで、フォルダごとコピーしたいのですが…
エクセルのＶＢＡで、フォルダごとコピーしたいのですが… Ｄドライブの”TEST"というフォルダを、同じくＤドライブに"TEST2"という名前でコピーしたいのです。 Private Sub sakusei_Click() Dim myFSO As New FileSystemObject myFSO.CopyFolder "D:\TEST", "D:\TEST2" End Sub ではうまくいかないのです。 私は初心者なので調べてもよくわからないので、 有識者の方、是非教えてください。 宜しくお願い致します。
- ベストアンサー
- オフィス系ソフト
- フォルダをコピー フォルダの中に入れたい FSO
vbaです。よろしくお願いします。 Sub Sample() Dim myFSO As Object Dim MyPath As String MyPath = "C:\Users\ああああ\Desktop\" Set myFSO = CreateObject("Scripting.FileSystemObject") myFSO.CopyFolder MyPath & "コピーしたフォルダーを入れるフォルダー", MyPath & "コピーするフォルダ" Set myFSO = Nothing End Sub こんな感じで、デスクトップにある、"コピーするフォルダ"をコピーして、 デスクトップにある、"コピーしたフォルダーを入れるフォルダー"の中に入れたいのですが 上記のコードを実行しても何も起きません。 コピーしたフォルダーを入れるフォルダーの中身を見ても、空です。 ”コピーしたフォルダーを入れるフォルダー”の中に、"コピーするフォルダ" を入れる方法を教えてください。
- ベストアンサー
- その他（プログラミング・開発）
- 実行時エラー 76 パスが見つかりません。
VBAのFileSystemObjectでフォルダをコピーしているのですが フォルダ１は問題なくコピーできるのですが 毎回フォルダ２だけは、 実行時エラー 76 パスが見つかりません。 と言うエラーになってしまいます。 Sub Sample() Dim myFSO As Object Dim MyPath As String MyPath = "C:\" Set myFSO = CreateObject("Scripting.FileSystemObject") myFSO.CopyFolder MyPath & "フォルダ２", MyPath & "新フォルダ２" Set myFSO = Nothing End Sub このようなコードなのですが、フォルダ１もフォルダ２も同じコードを使っています。 フォルダ２に関しては容量が１０ＧＢくらいありますが、フォルダが重すぎるのが原因でしょうか？
- ベストアンサー
- オフィス系ソフト
- vbaで参照設定する方法
sub フォルダをコピーする() Dim myFSO As New FileSystemObject myFSO.CopyFolder "D:\TEST", "D:\TEST2" End Sub を実行したいのですが、 Visual Basic Editor の [ツール]-[参照設定] で、 "Microsoft Scripting Runtime" にチェックせずに、 vbaで参照設定する方法を教えてください。 バージョンは2007です。 ご回答よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- VBA 一つのフォルダの中のフォルダ名とファイル名
一つのフォルダの中のフォルダ名とファイル名を取得したい場合は ************************************** Sub test() Dim MyFileName As String Dim MyFolderName As String Dim myFSO As Object Dim MyFolder As Scripting.Folder MyFolderName = "C:\" 'フォルダを取得 MyFileName = Dir(MyFolderName & "*.*") Do While MyFileName <> "" Debug.Print MyFileName MyFileName = Dir() Loop 'ファイルを取得 Set myFSO = CreateObject("Scripting.FileSystemObject") With myFSO With .GetFolder(MyFolderName) For Each MyFolder In .SubFolders Debug.Print MyFolder.Name Next End With End With Set myFSO = Nothing End Sub ************************************** の様に ファイル名・フォルダ名をそれぞれループして取得しないとダメでしょうか？ もうちょっとスマートなコードはありますか？
- ベストアンサー
- その他（プログラミング・開発）
- 「New」はつけた方がいいのでしょうか？
vbaなのですが、 FileSystemObjectでドライブの情報を取得したりファイル操作をしているのですが FileSystemObjectを宣言する時は、 Dim myFSO As New FileSystemObject にしたほうがいいのか、 Dim myFSO As FileSystemObject でいいのか教えてください. Sub Sample() Dim myFSO As New FileSystemObject Dim Drv As Variant Dim buf As String Set myFSO = CreateObject("Scripting.FileSystemObject") For Each Drv In myFSO.Drives Debug.Print Drv.DriveLetter Next Drv Set myFSO = Nothing End Sub 上記のコードは、newを付けても付けなくても結果は変わりませんでした。 よろしくお願いします。
- ベストアンサー
- Visual Basic
- サブフォルダからエクセルブックをとりだすマクロ
特定のフォルダからエクセルブックのみを抽出し別のフォルダに集める（コピーする）マクロを作りたいと思い、以下のように作成しました。 （AAAフォルダ⇒移動元、BBBフォルダ⇒移動先） ただしこれだと、AAAフォルダ内にあるサブフォルダからは拾ってこれないようです。 AAA内の全てのサブフォルダからエクセルブックを拾ってくるにはどう修正すればよろしいでしょうか。 ――――――――――― Sub sample1() Dim FSO As Object, fld As Variant, bk As Variant Const Fld1 As String = "C:\AAA" Const Fld2 As String = "C:\BBB\" Const tgt As String = "*.xlsx" Set FSO = CreateObject("Scripting.FileSystemObject") For Each fld In FSO.GetFolder(Fld1).SubFolders For Each bk In fld.Files If bk.Name Like tgt Then bk.Copy Fld2 End If Next bk Next fld End Sub
- 締切済み
- Excel（エクセル）
- エクセルVBAで質問です
下のコードをみつけました。 質問が二つあります。 １．エラーになります。 実行するとユーザー定義型は定義されていません、と出ます。どこが不具合でしょうか？おなじように記述したつもりですが・・・ ２．コードでは、Cドライブの中にあるフォルダに固定されていますが、これをウィンドウを表示させて、検索したいフォルダを選択させて調べるようにできますか？ どうぞよろしくお願いします。 Sub フォルダ取得() Dim myFSO As New FileSystemObject Dim myFolders As Folders Dim myFolder As folder Dim i As Integer Set myFolders = myFSO.GetFolder("C:\").SubFolders i = 1 For Each myFolder In myFolders Cells(i + 1, 1).Value = myFolder.Name i = i + 1 Next End Sub
- ベストアンサー
- オフィス系ソフト
- 位置の指定をすることは可能ですか？
VBAでテキストファイルを生成するコードを作ったのですが その際位置の指定をすることは可能ですか？ Sub test() Dim myFSO As New FileSystemObject Dim ts As TextStream Dim MyFileName As String Dim MyPath As String MyPath = MyDesktop & "\" MyFileName = "test.txt" Set myFSO = CreateObject("Scripting.FileSystemObject") Set ts = myFSO.CreateTextFile(MyPath & MyFileName, True) CreateObject("Shell.Application").ShellExecute MyPath & MyFileName 'ここで位置の指定をしたい Set ts = Nothing Set myFSO = Nothing End Sub こんな感じのコードは作成しました。 With MyFileName .Top = 100 .Left = 100 End With みたいな感じで位置の指定は可能ですか？ APIを使わないと無理ですか？
- ベストアンサー
- オフィス系ソフト
- エクセルならうまく行くのですがアクセスだとエラーに
エクセルならうまく行くのですがアクセスだとエラーになるのですがなぜでしょうか？ フォルダに入ってるフォルダ名を全て取得して一つにつなげたいのですが Sub フォルダ名を取得() 参照設定：Microsoft Scripting Runtime Dim MyFSO As Object Dim MyGetFolder As String Dim MyFolderName As String Dim MyFolder As Folder Dim i As Long MyGetFolder = "D:\My Documents" Set MyFSO = CreateObject("Scripting.FileSystemObject") With MyFSO With .GetFolder(MyGetFolder) For Each MyFolder In .SubFolders MyFolderName = MyFolderName & "," & MyFolder.Name Next End With End With MsgBox MyFolderName Set MyFSO = Nothing End Sub これを実行するとアクセスだと For Each MyFolder In .SubFolders で、実行時エラー13 型が一致しません。 になります。 エクセルもアクセスも参照設定：Microsoft Scripting Runtimeにチェックを入れています。 コードはネットで拾ってきたコードです。 オフィスの種類は2003・OSはXPです。
- ベストアンサー
- オフィス系ソフト
お礼
初歩の初歩でしたね＾＾； 気づかなかったですToT ありがとうございました＾＾