ここから本文です

VBAについて質問です。 VBAで、新規のフォルダをつくり、そのフォルダの中に30分...

whi********さん

2020/1/3018:14:18

VBAについて質問です。
VBAで、新規のフォルダをつくり、そのフォルダの中に30分おきにマクロの書いてあるエクセルを別名で保存したいです。
VBAやり慣れておらず、なんとか作ってみたのですが、よくわからないエラー

が出てしまって…
「エラー1004 このファイルは読み取り専用のためアクセスできません」

いつも30分後のエクセルを作ろうとするとでます、
でも、ファイルはできていなくて…

いろいろ調べてみたんですが、調べ方が悪いのかいい回答にたどり着けなく、
どなたかわかる方いたら教えていただけませんか

以下マクロ↓

Public FolderName

Sub hozon()

Dim FolderName As String
Dim ans As String

ans=Inputbox(“名前の入力”)
FolderName=“C¥Test¥”&ans

ActiveWorkbook.SaveCopyAs FolderName&”¥開始.xls”

Application.OnTime Now+TimeValue(“00:30:00”),”30分後”

Application.OnTime Now+TimeValue(“01:00:00”),”60分後”

Application.OnTime Now+TimeValue(“01:30:00”),”90分後”

End Sub

Sub 30分後()

ActiveWorkbook.SaveCopyAs FolderName&”¥30.xls”

End Sub

Sub 60分後()

ActiveWorkbook.SaveCopyAs FolderName&”¥60.xls”

End Sub

Sub 90分後()

ActiveWorkbook.SaveCopyAs FolderName&”¥90.xls”

End Sub

閲覧数:
12
回答数:
1

違反報告

ベストアンサーに選ばれた回答

ari********さん

2020/1/3018:51:31

ファイルパスのcドライブのコロン(:)が抜けてます

他のサブルーチンで使用するため、
変数名FolderName はModuleの先頭行などに、Publicで記述します
拡張子は、".xlsm"がよいです

サブフォルダ名を入力させていますが、
作成されていない場合の条件、処理を作成されるとよいです




Public FolderName As String

Sub hozon()

’◆修正◆Dim FolderName As String
Dim ans As String

ans=Inputbox(“名前の入力”)

’◆修正◆FolderName=“C¥Test¥” & ans

FolderName=“C:¥Test¥” & ans

質問した人からのコメント

2020/1/31 11:16:02

返信ありがとうございます!
指摘していただいた通りに
修正したら出来ました!

あわせて知りたい

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる