FileSystemObject Dim ws01 As Worksheet Dim lRow, I As Long Dim FolderName, OldFile, NewFile As String Set ws01 = Worksheets ( "Sheet2") FolderName = "C:\DATA" '保存されている保存先(フォルダー) lRow = ws01. エクセル黒魔術で、ファイル名を一括で変更する | 株式会社ヂヤンテイシステムサービス. Row 'A列の最終行を取得 For I = 6 To lRow 'A列の最終行まえ繰り返す OldFile = FolderName & "\" & (I, " A ") 'A列から旧ファイル名を取得 NewFile = FolderName & " \ " & ws01. Cells ( I, "B") 'B列から新ファイル名を取得 If File_function. FileExists ( NewFile) = False Then 'ファイル名の存在を確認します。既に新ファイル名があれば、変換不可 Name OldFile As NewFile 'ファイル名を変更します。(旧ファイル⇒新ファイル) ws01. Cells ( I, "C") = "完了" Else ws01.
FileSystemObject Dim RC As Integer Dim lRow, I As Long Dim FolderName, OldFile, NewFile As String Dim ws01 As Worksheet Set ws01 = Worksheets ( "Sheet3") lRow = ws01. Row 'A列の最終行を取得 For I = 6 To lRow If IsEmpty ( ws01. Range ( "B" & I)) = True Then MsgBox "新ファイル名を指定していないセルがあります。" Exit Sub End If Next I RC = MsgBox ( "選択したファイル名を変更しますか? ", vbYesNo + vbQuestion, "確認") 'ファイル名変換を実行するか確認します。 If RC = vbNo Then MsgBox ( "ファイル名変換をキャンセルしました。") Exit Sub 'プログラムを中断 End If FolderName = ws01. Range ( "A3") '保存されている保存先(フォルダーパス) For I = 6 To lRow OldFile = FolderName & "\" & (I, " A ") 'A列から旧ファイル名を取得 NewFile = FolderName & " \ " & ws01. FileExists ( NewFile) = False Then Name OldFile As NewFile 'ファイル名を変更します。(旧ファイル⇒新ファイル) ws01. Cells ( I, "C") = "変換不可" End If Next I End Sub ' ●実行前~実行後 ※プログラム実行後、下記の通りに実行されます。 ①ファイル名を選択するとダイアログボックスが表示されます。 ②ファイルを選択して、旧ファイル名としてファイル名とフルパスを取得します。 ③変換する新しいファイル名を入力します。 ④「ファイル名変換」ボタンをクリックします。(実行) ⑤変換結果が表示されます。 ※変換結果が「完了」ならば、新ファイル名へ変換されています。 最後まで、ご覧いただきまして誠に有難うございました。 また、VBAに関するテクニックや便利な手法などをこのサイトに掲載していきますので、定期的に参照していただけると幸いです。
また、Excelについて基礎から、学びたい方はこちらの書籍もご覧ください。
乗換案内 秋葉原 → 池袋 時間順 料金順 乗換回数順 1 13:11 → 13:29 早 安 楽 18分 200 円 乗換 1回 秋葉原→田端→池袋 2 13:13 → 13:32 19分 340 円 秋葉原→御茶ノ水→池袋 3 13:13 → 13:38 25分 310 円 秋葉原→飯田橋→池袋 4 13:13 → 13:40 27分 乗換 2回 秋葉原→御茶ノ水→新宿→池袋 5 13:13 → 13:44 31分 秋葉原→神田(東京)→新宿→池袋 6 13:15 → 13:45 30分 秋葉原→仲御徒町→御徒町→池袋 13:11 発 13:29 着 乗換 1 回 1ヶ月 5, 930円 (きっぷ14. 秋葉原から池袋 時刻表（ＪＲ山手線） - NAVITIME. 5日分) 3ヶ月 16, 900円 1ヶ月より890円お得 6ヶ月 28, 460円 1ヶ月より7, 120円お得 4, 610円 (きっぷ11. 5日分) 13, 140円 1ヶ月より690円お得 24, 890円 1ヶ月より2, 770円お得 4, 140円 (きっぷ10日分) 11, 820円 1ヶ月より600円お得 22, 400円 1ヶ月より2, 440円お得 3, 220円 (きっぷ8日分) 9, 190円 1ヶ月より470円お得 17, 420円 1ヶ月より1, 900円お得 JR京浜東北・根岸線 快速 南浦和行き 閉じる 前後の列車 2駅 13:13 御徒町 13:14 上野 1番線着 2番線発 JR山手線(内回り) 池袋方面行き 閉じる 前後の列車 3駅 13:22 駒込 13:24 巣鴨 13:26 大塚(東京) 6番線着 13:13 発 13:40 着 乗換 2 回 4, 940円 (きっぷ12日分) 14, 090円 1ヶ月より730円お得 26, 680円 1ヶ月より2, 960円お得 4, 440円 (きっぷ11日分) 12, 680円 1ヶ月より640円お得 24, 010円 1ヶ月より2, 630円お得 3, 450円 (きっぷ8. 5日分) 9, 860円 1ヶ月より490円お得 18, 670円 1ヶ月より2, 030円お得 JR総武線 普通 三鷹行き 閉じる 前後の列車 2番線着 JR中央線 快速 八王子行き 閉じる 前後の列車 1駅 12番線着 15番線発 JR山手線(外回り) 池袋方面行き 閉じる 前後の列車 13:33 新大久保 13:35 高田馬場 13:37 目白 7番線着 13:13 発 13:32 着 11, 240円 (きっぷ16.
[light] ほかに候補があります 1本前 2021年08月08日(日) 13:11出発 1本後 6 件中 1 ~ 3 件を表示しています。 次の3件 [>] ルート1 [早] [楽] [安] 13:12発→ 13:32着 20分(乗車20分) 乗換: 0回 [priic] IC優先: 198円 10. 3km [reg] ルート保存 [commuterpass] 定期券 [print] 印刷する [line] [train] JR山手線内回り・上野・池袋方面 2 番線発 / 6 番線 着 10駅 13:14 ○ 御徒町 13:16 ○ 上野 13:18 ○ 鶯谷 13:20 ○ 日暮里 13:21 ○ 西日暮里 13:23 ○ 田端 13:25 ○ 駒込 13:27 ○ 巣鴨 13:29 ○ 大塚(東京都) 198円 ルート2 [早] [安] 13:11発→ 13:32着 21分(乗車19分) 乗換:1回 [train] JR京浜東北線快速・南浦和行 1 番線発(乗車位置:前/中/後[10両編成]) / 1 番線 着 2駅 13:13 [train] JR山手線内回り・池袋・新宿方面 8駅 ルート3 13:13発→13:36着 23分(乗車14分) 乗換:1回 [priic] IC優先: 335円 7. タクシー料金検索・予約 | ゼンリン地図・いつもNAVI. 3km [train] JR総武線・三鷹行 5 番線発(乗車位置:前/中[10両編成]) / 2 番線 着 136円 [train] 東京メトロ丸ノ内線・池袋行 2 番線発 / 2 番線 着 5駅 13:26 ○ 本郷三丁目 13:28 ○ 後楽園 13:31 ○ 茗荷谷 13:33 ○ 新大塚 199円 ルートに表示される記号 [? ] 条件を変更して検索 時刻表に関するご注意 [? ] JR時刻表は令和3年8月現在のものです。 私鉄時刻表は令和3年8月現在のものです。 航空時刻表は令和3年9月現在のものです。 運賃に関するご注意 航空運賃については、すべて「普通運賃」を表示します。 令和元年10月1日施行の消費税率引き上げに伴う改定運賃は、国交省の認可が下りたもののみを掲載しています。
出発 秋葉原 到着 池袋 逆区間 JR山手線 の時刻表 カレンダー
おすすめ順 到着が早い順 所要時間順 乗換回数順 安い順 13:12 発 → 13:32 着 総額 198円 (IC利用) 所要時間 20分 乗車時間 20分 乗換 0回 距離 10. 3km 13:11 発 → 13:29 着 所要時間 18分 乗車時間 17分 乗換 1回 13:13 発 → 13:32 着 335円 所要時間 19分 乗車時間 14分 距離 7. 3km 13:13 発 → 13:38 着 304円 所要時間 25分 乗車時間 16分 距離 7. 5km 13:13 発 → 13:40 着 所要時間 27分 乗車時間 21分 乗換 2回 距離 13. 4km 記号の説明 △ … 前後の時刻表から計算した推定時刻です。 () … 徒歩/車を使用した場合の時刻です。 到着駅を指定した直通時刻表
秋葉原駅 (JR) 2021/02/16 10. 3km 乗車区間を見る 池袋駅 (JR) 鉄レコ日誌 気晴らし(2021/02/16) アクセス 3 コメント 0 このページをツイートする Facebookでシェアする Record by ヒロキ さん 投稿: 2021/02/17 17:26 乗車情報 乗車日 2021/02/16 17:36 〜17:57 出発駅 2 下車駅 6 運行路線 山手線 乗車距離 車両情報 鉄道会社 JR東日本 車両番号 サハE235-4633 形式名 サハE235形 ( E235系) 編成番号 30 列車番号 1716G 列車種別 各駅停車 行先 上野・池袋方面 この鉄レコが含まれる日誌 13 件 乗車期間 乗車回数 13回 196. 2km 前 13件目 / 全13件 次 今回の完乗率 今回の乗車で、乗りつぶした路線です。 25. 2% (5. 2/20. 6km) 区間履歴 東北線 1. 0% (5. 1/535. 3km) コメントを書くには、メンバー登録(ログイン要)が必要です。 レイルラボのメンバー登録をすると、 鉄レコ(鉄道乗車記録) 、 鉄道フォト の投稿・公開・管理ができます! 新規会員登録(無料) 既に会員の方はログイン 乗車区間 秋葉原 御徒町 上野 鶯谷 日暮里 西日暮里 田端 駒込 巣鴨 大塚 池袋 簡単に記録・集計できます! 秋葉原駅から池袋駅都営バス. 鉄道の旅を記録しませんか? 乗車距離は自動計算!写真やメモを添えてカンタンに記録できます。 みんなの鉄レコを見る メンバー登録(無料) Control Panel ようこそ! ゲスト さん 鉄道フォトを見る 鉄レコ(鉄道乗車記録)を見る レイルラボに会員登録すると、鉄道乗車記録(鉄レコ)の記録、鉄道フォトの投稿・管理ができます。 ニュースランキング 過去24時間 1 位 JR西日本クモヤ443系、ついに引退か? 2 位 製造たった3両、鉄道最高地点の高原を走る世界初の営業用ハイブリット車両 3 位 「クモヤ443」か?IRいしかわ鉄道倶利伽羅駅で車両故障、列車運休 4 位 炭酸開けると本物の運転士気分!? 江ノ電ブレーキハンドル型ボトルキャップオープナー 5 位 小田急電鉄、成城学園前駅~祖師ヶ谷大蔵駅間で車内トラブル 乗客が刺されたとの情報も ニュースランキング(24時間)をもっと見る ニューストピックス 2021/08/06 配信 小田急電鉄、成城学園前駅~祖師ヶ谷大蔵駅間で車内トラブル 乗客が刺されたとの情報も 2021/08/05 配信 叡山電鉄鞍馬線、不通の市原~鞍馬間 9月18日に運転再開 2021/08/05 配信 炭酸開けると本物の運転士気分!?