エクセルマクロ オンライン講座コメント紹介

コメント紹介
   └ エクセルマクロ・VBA基礎編フォローアップ アドバンスド
       └ データ記入用ファイルを配布する-その2

データ記入用ファイルを配布する-その2

[10512] 2018-08-25 18:25:18 ゲストさんからの投稿です。

こんにちは。いつもお世話になっております。
ファイルを保存するところで、エラーになり進めないでおります。

実行時エラー 1004

ファイル'D:\renshu\配布先フォルダa\'にアクセスできません。次のいずれかの理由が考えられます。
・ファイル名またはパスが存在しません
・ファイルが他のプログラムによって使用されています
・保存しようとしているブックと同じ名前のブックが現在開かれています

Dドライブには間違いなく「renshu」フォルダが存在します。
どのようにしたら解決しますでしょうか。


---------------------------------------------------------------------
Sub renshumacro()
Dim foldername
Dim filename
Dim gyo

foldername = Workbooks("全部1つ.xls").Sheets("部署情報").Range("D2").Value
filename = Workbooks("全部1つ.xls").Sheets("部署情報").Range("E2").Value

Workbooks("全部1つ.xls").Sheets(Array("歳入", "歳出")).Select
Workbooks("全部1つ.xls").Sheets("歳出").Activate

Workbooks("全部1つ.xls").Sheets(Array("歳入", "歳出")).Copy '←この段階で新しいファイルができた
ActiveWorkbook.SaveAs filename:="D:\renshu\" & foldername & "\" & filename, FileFormat:= _
xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False

Workbooks(filename).Sheets("歳出").Select
Workbooks(filename).Sheets("歳出").Range("A23:D23").Select
Selection.Delete Shift:=xlUp

Workbooks(filename).Sheets("歳入").Select
Workbooks(filename).Sheets("歳入").Range("A23:D23").Select
Selection.Delete Shift:=xlUp

Workbooks(filename).Save
Workbooks(filename).Close

End Sub

 


[10519] 2018-08-29 18:48:14 小川慶一さんからの投稿です。

ゲストさん:

お返事、遅れました。

> ファイル'D:\renshu\配布先フォルダa\'にアクセスできません。次のいずれかの理由が考えられます。
> Dドライブには間違いなく「renshu」フォルダが存在します。

「配布先フォルダa」はありますでしょうか。

ある場合は...。
ご回答用に新たに解説動画を作りましたので、これを見て、ご自身でも調査いただけますでしょうか。

以下に置いてあります。(サンプルコードつき)
https://www.dropbox.com/sh/t48zkshqbw41fuq/AADMiFgklgIJqS9txNpcoBC7a?dl=0


まずは、よろしくお願いいたします。




> こんにちは。いつもお世話になっております。
> ファイルを保存するところで、エラーになり進めないでおります。
>
> 実行時エラー 1004
>
> ファイル'D:\renshu\配布先フォルダa\'にアクセスできません。次のいずれかの理由が考えられます。
> ・ファイル名またはパスが存在しません
> ・ファイルが他のプログラムによって使用されています
> ・保存しようとしているブックと同じ名前のブックが現在開かれています
>
> Dドライブには間違いなく「renshu」フォルダが存在します。
> どのようにしたら解決しますでしょうか。
>
>
> ---------------------------------------------------------------------
Sub renshumacro()
Dim foldername
Dim filename
Dim gyo

    foldername = Workbooks("全部1つ.xls").Sheets("部署情報").Range("D2").Value
    filename = Workbooks("全部1つ.xls").Sheets("部署情報").Range("E2").Value

    Workbooks("全部1つ.xls").Sheets(Array("歳入", "歳出")).Select
    Workbooks("全部1つ.xls").Sheets("歳出").Activate
    
    Workbooks("全部1つ.xls").Sheets(Array("歳入", "歳出")).Copy '←この段階で新しいファイルができた
    ActiveWorkbook.SaveAs filename:="D:\renshu\" & foldername & "\" & filename, FileFormat:= _
        xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False
        
    Workbooks(filename).Sheets("歳出").Select
    Workbooks(filename).Sheets("歳出").Range("A23:D23").Select
    Selection.Delete Shift:=xlUp
    
    Workbooks(filename).Sheets("歳入").Select
    Workbooks(filename).Sheets("歳入").Range("A23:D23").Select
    Selection.Delete Shift:=xlUp
    
    Workbooks(filename).Save
    Workbooks(filename).Close
    
End Sub

 


[10520] 2018-08-30 01:10:29 ゲストさんからの投稿です。

10512です。お返事ありがとうございます。
本当に申し訳ございません。そもそも大きな勘違いをしていたことに気づきました。。
ご指摘の通り「配布先フォルダa」がなかったのが原因でした。というのも、この課題を見たときに頭から「フォルダも作成するマクロ」だと、勝手に勘違いしていたのです。お恥ずかしい限りです。
ご丁寧に動画もご提示いただき、本当にありがとうございました。お手数おかけして申し訳ございませんでした。コードは自分で修正して無事動きました・・
貴重なお時間をいただいてしまい、心よりお詫びいたします。

そもそも、コードを書いていて、「フォルダ」の件について自分で気づかないということはやはり基礎がわかってないというか、理解できていないのだと思います。一から学びなおします。

 


[10524] 2018-08-30 08:09:24 小川慶一さんからの投稿です。

ゲストさん:

おはようございます。

そうでしたか。ともあれ、解決してよかったです。

> そもそも、コードを書いていて、「フォルダ」の件について自分で気づかないということはやはり基礎がわかってないというか、理解できていないのだと思います。一から学びなおします。

今回ご提供した動画4本も、よい学びになるかと思います。
この機会にどうぞ。

ひきつづきよろしくお願いいたします。


> 10512です。お返事ありがとうございます。
> 本当に申し訳ございません。そもそも大きな勘違いをしていたことに気づきました。。
> ご指摘の通り「配布先フォルダa」がなかったのが原因でした。というのも、この課題を見たときに頭から「フォルダも作成するマクロ」だと、勝手に勘違いしていたのです。お恥ずかしい限りです。
> ご丁寧に動画もご提示いただき、本当にありがとうございました。お手数おかけして申し訳ございませんでした。コードは自分で修正して無事動きました・・
> 貴重なお時間をいただいてしまい、心よりお詫びいたします。
>
> そもそも、コードを書いていて、「フォルダ」の件について自分で気づかないということはやはり基礎がわかってないというか、理解できていないのだと思います。一から学びなおします。

 


まずはここから!スマホでも学べる無料動画講座

今なら先着30名限定で無料!定価4,800円の、初心者のためのエクセルマクロ動画講座。
  1. Excel 97~Excel 2016まですべて対応。動画本数20本、総再生時間2時間44分53秒
  2. PC, Mac, iPhone, iPad, Androidのお好みの環境で、いつでも好きなときに学べます。
2004年から10年間述べ3,000名以上に実施した研修の経験と実績を集約した講座です。
いますぐ無料で試してください。

トップへ