[[20180304214940]] 『指定した名前が入っているブックを移動させたい!』(ぴ) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『指定した名前が入っているブックを移動させたい!』(ぴ)

こんばんは。質問失礼します!
20180304-c-1.xlsx
20180303-c-1.csv
20180304-c-2.xlsx
などのブックが\データというフォルダのなかにあって、その中からc-1という名前が入ったブックだけを切り取って\c-1のフォルダに移動させたいのです。
どなたか教えていただけないでしょうか!!早めの回答よろしくお願いします。

< 使用 Excel:unknown、使用 OS:Windows7 >


こんな感じでどうでしょうか

 エクスプローラでファルダを開き、
 *C-1*.xlsxでファイル検索し、
 切り取り、
 C-1フォルダを開き、
 貼付け

(マナ) 2018/03/04(日) 22:21


マナ様
回答ありがとうございます!!
これをマクロで行いたいのです!!すみません!
(ぴ) 2018/03/04(日) 22:28

ここを勉強するとよいです
http://officetanaka.net/excel/vba/filesystemobject/index.htm

(マナ) 2018/03/04(日) 22:46


マナ様
ありがとうございます!役立つ情報がいっぱいありました。
頑張って組んでみようと思います。
(ぴ) 2018/03/04(日) 22:59

 横から失礼します。
 Dir関数も使えそうです。
 考え方は2018/03/04(日) 22:21のマナさんの回答の通りです。
(カリーニン) 2018/03/04(日) 23:06

カリーニン様
回答ありがとうございます!
Dir関数ですか。フルパスを取得するときに使うとしか分かりませんでした!
ちなみにこの場合だとどういう時に使うのでしょうか??
(ぴ) 2018/03/04(日) 23:29

目次を順番にみていくと、使えそうなのがすぐに見つかると思ったのですが…
http://officetanaka.net/excel/vba/filesystemobject/filesystemobject23.htm

(マナ) 2018/03/04(日) 23:41


マナ様
返信遅くなってしまいすみません!
ありがとうございます!
(ぴ) 2018/03/05(月) 07:23

もう一つ質問です。
DIm ABC As Object
Set ABC = CreateObject(“Scripting.FileSystemObject”)
ABC.MoveFile”C:\Desktop\データ\20180305???,”C:\Desktop\データ\C-001”
Set ABC = Nothing

データのフォルダに入っているブックの中からC-001が入っている名前のブックをC-001フォルダに移動させるには
どうしたら良いのでしょうか?????のところをいじるのでしょうか??
(ぴ) 2018/03/05(月) 11:14


>これをマクロで行いたいのです

手作業のほうがはやいですよ。

 Option Explicit

 Sub test()
    Dim FSO As Object
    Dim 移動前フォルダ As String
    Dim 移動後フォルダ As String
    Dim 移動するファイル As String

    移動前フォルダ = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\データ\"
    移動後フォルダ = 移動前フォルダ & "C-001\"
    移動するファイル = "*C-001.xlsx"

    Set FSO = CreateObject("Scripting.FileSystemObject")

    FSO.MoveFile 移動前フォルダ & 移動するファイル, 移動後フォルダ
    Set FSO = Nothing

 End Sub

(マナ) 2018/03/05(月) 20:11


マナ様
ほんとにありがとうございます!!データ量が膨大なため移動が大変でした、
助かりました!!ありがとうございます!!
(ぴ) 2018/03/05(月) 20:55

2018/03/04(日) 22:21の方法なら、データ量は関係なくできると思います。
都度、マクロを修正するよりはやいのではないでしょうか。

(マナ) 2018/03/05(月) 21:48


よくよく考えるとそうなりますね…。色々とありがとうございました!!
(ぴ) 2018/03/05(月) 23:25

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.