[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『指定した名前が入っているブックを移動させたい!』(ぴ)
こんばんは。質問失礼します!
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:46
横から失礼します。 Dir関数も使えそうです。 考え方は2018/03/04(日) 22:21のマナさんの回答の通りです。 (カリーニン) 2018/03/04(日) 23:06
(マナ) 2018/03/04(日) 23:41
データのフォルダに入っているブックの中から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(月) 21:48
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.