本学習テーマ紹介動画
👆本学習テーマをYouTubeで紹介しています！
チャンネル登録宜しくお願いします！
効果音ラボ ナレーション 音読さん
＊基本的に, 記事投稿日翌日夜18:30頃から, 動画を閲覧できます。
本学習ツールでの問題文・解答例
問題文
以下の要件を満たすVBAのプログラムを実装して下さい。
要件
| 最初に, 「読み込み＆書き込みシート」をアクティベートする。 |
| 「読み込み＆書き込みシート」の 「フォルダパス」セルを初期化する。（値を削除する。） |
| 「読み込み＆書き込みシート」の「読み込みパス」を取得する。 |
| FileSystemObjectを使って, 「読み込みパス」の「フォルダパス」を取得し, 「読み込み＆書き込みシート」の「フォルダパス」に入力する。 （＊入力後, FileSystemObjectを設定した変数はNothingに設定する。） |
| 最後に, MsgBox関数（情報アイコン）で 「フォルダパス取得完了！」と表示する。 |
解答例
Option Explicit
Sub correctAnswerExample()
Dim ws As Worksheet: Set ws = ThisWorkbook.Worksheets("読み込み＆書き込みシート")
Dim tarPath As String: tarPath = ws.Cells(6, 2).Value
Dim writeCell As Range: Set writeCell = ws.Cells(9, 2)
Dim fso As Object: Set fso = CreateObject("Scripting.FileSystemObject")
' アクティベートする
ws.Activate
' 書き込みセルを初期化する
writeCell.ClearContents
' Get the folder path of "読み込みパス"
writeCell.Value = fso.GetParentFolderName(tarPath)
' Nothingに設定する
Set fso = Nothing
' Display message box with information icon
MsgBox "フォルダパス取得完了！", vbInformation
End Sub上のプログラムが実際に動く様子は, 下の学習ツールをダウンロードして, 確認してみて下さい！
本学習ツールの内容
下👇の画像のように, vbaでフォルダパスを取得するプログラムを実装し, それを実際に実行することが出来ます！
VBA設定
尚, 本ツールには, 「VBA」（Excelのプログラミング言語）が組み込まれている為, 以下のマニュアルに従った設定・エラー時の対処が必要となります。
ダウンロード
ぜひ, 勉強にご活用下さい！（xlsmファイル）👇
コメント