【カテゴリー別】Excel VBA スタンダード 模擬問題　ファイル操作

次のコードは、"C:¥Local¥total.xlsx"のブックを開いた後、

"C:¥Backup¥total_backup.xlsx"へ場所やファイル名をかえてブックを保存するマクロである。

以下の空欄に入る適切な語句を解答しなさい。

Sub Exam1()

　Workbooks. "C:¥Local¥total.xlsx"

　ActiveWorkbook. "C:¥Backup¥total_backup.xlsx"

　ActiveWorkbook.Close

End Sub

以下のコードはマクロが書かれているブック上のセルの値を取得し、ブックを一つずつ開き、

最後にアクティブ状態のブック名を表示するマクロである。

空欄に入る適切な語句を解答しなさい。

Sub Exam1()

　Dim i As Long

　For i = 2 To 5

　　Workbooks.Open "C:¥Data¥" & .ActiveSheet.Cells(i, 1) & ".xlsx"

　Next i

　　MsgBox ActiveWorkbook.Name

End Sub

　　　

次のコードは、アクティブブックを"Documents"フォルダ内に「total_7.xlsx」として保存するマクロである。

なおブック名の「7」は、7月現在の月を表示したものである。

以下の空欄に入る適切な解答を記入しなさい。

Sub Exam1()

　ActiveWorkbook."C:￥Documents¥" & "total_" & (Now) & ".xlsm"

End Sub

次のコードは、アクティブブックを"Documents"フォルダ内に「total_8.xlsm」として保存するマクロである。

なおファイル名の「8」は、実行時8月現在の月を表示したものである。

空欄に入る適切な解答を記入しなさい。

Sub Exam1()

　ActiveWorkbook. "C:¥Documents¥" & "total_" & Month( ) & ".xlsｍ"

End Sub

次のコードは、数値を4桁の文字列にし更に'SXXXX'の形式に整えるコードである。

なお各桁に値がない時も'０'を表示するように設定をした。

空欄に入る適切な語句を入力しなさい。

Sub Exam1()

 Dim i As Long

 For i = 2 to 5

　　Cells(i, 2) = "S"&  (i, " ")

　Next i

　　　MsgBox Range("B4")

End Sub

次のコードは、Cドライブ下のDocumentsフォルダ内で、ファイル名"total2023.xlsx "を"backup2023.xlsx"と名前を変えてファイルをコピーするマクロである。

空欄に入る適切な語句を解答しなさい。

Sub Exam1()

　FileCopy "C:¥Documents¥total2023.xlsx" "C:¥Documents¥backup2023.xlsx"

End Sub

次のコードは、Cドライブ下のDocumentsフォルダ内で、ファイル名"total2023.xlsx "を

"backup2023.xlsx"と名前を変えてファイルをコピーするマクロである。

空欄に入る適切な語句を解答しなさい。

Sub Exam1()

　 "C:¥Documents¥total2023.xlsx","C:¥Documents¥backup2023.xlsx"

End Sub

次のコードは、新たにDocumentsフォルダの下にReportsフォルダを作成するマクロである。

以下の空欄に入る適切な語句を解答しなさい。

Sub Exam1()

　 "C:¥Documents¥Reports"

End Sub

次のコードは、Cドライブ下の"Documents"フォルダ内にreport.xlsxというファイルがあるか調べ、

ある場合はメッセージボックスにファイル名を表示するマクロである。

空欄に入る適切な語句を入力しなさい。

Sub Exam1()

　Dim A As String

　A = ("C:¥Documents¥report.xlsx")

　If A <> "" Then

　　　MsgBox "OK:" & A

　Else

　　　MsgBox "NG"

　End If

End Sub