レッスン-投稿一覧パソコン仕事５倍塾ポータル

投稿/コメントを表示します。

条件に一致するデータだけのリストを、条件に一致しないデータを削除する方法で複数の別ファイルとして連続的に作成する。

受講生さんの投稿

(投稿ID: 4688) 添付ファイルのダウンロード権限がありません

ファイルの保存を自動マクロで記録して実行すれば、ファイル保存できました。
ファイル名だけ、変数にしてファイル保存しようとするとエラーがでました。色々試しましたが、うまくいきません。お手数ですが、教えてください。今まで順調に学習できていましたが、今回はギブアップです。

2020/04/27 07:35

小川慶一さんのコメント

(コメントID: 6509)

受講生さん:

おはようございます。
以下のとおりにコメントします。

Option Explicit
Sub copy()
'[1]↑モジュール、プロシージャ名、変数名等には、Excel VBAで出てくるキーワードとかぶるものは避けましょう
'   バグの温床になります。
'
'[2] まずは、ローカルのフォルダに保存することに成功してください。
'    保存先も、最初は、こんな深いディレクトリではなく、もっと浅いもので。フォルダ名も、シンプルにで短いもので。
'   https://d.docs.live.net/... への直接のアップロード＆保存はできるのか？
'   僕もやったことはないので定かではありません。
'
' copy Macro
'

'
        Sheets("明細").Select
        Sheets("明細").copy
        ActiveWorkbook.SaveAs Filename:= _
            "https://d.docs.live.net/[[hash]]/ドキュメント/仕事/ＶＢＡ_セミナー/基礎/ksfollow_advanced/【動画12】%20条件に一致するデータだけのリストを、条件に一致しないデータを削除する方法で複数の別ファイルとして連続的に作成する。/200426_c.xlsx" _
            , FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
        ActiveWorkbook.Close
    
End Sub

Sub rensyu()
        Dim flname
        Sheets("明細").Select
        Sheets("明細").copy
        flname = "200426_c.xlsx"

        ActiveWorkbook.SaveAs Filename:= _
            "https://d.docs.live.net/[[hash]]/ドキュメント/仕事/ＶＢＡ_セミナー/基礎/ksfollow_advanced/【動画12】%20条件に一致するデータだけのリストを、条件に一致しないデータを削除する方法で複数の別ファイルとして連続的に作成する。\" & flname _
            , FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
           
        ActiveWorkbook.Close

End Sub

> ファイルの保存を自動マクロで記録して実行すれば、ファイル保存できました。
> ファイル名だけ、変数にしてファイル保存しようとするとエラーがでました。色々試しましたが、うまくいきません。お手数ですが、教えてください。今まで順調に学習できていましたが、今回はギブアップです。
>

2020/04/27 14:59

受講生さんのコメント

(コメントID: 6510)

小川慶一さん:
おはようございます。
ローカルのフォルダでやるとエラーがでることなく作成できました。ありがとうございました。
なお、パスの「￥」と「/」と「\」との違いはありますか。すべて同じ意味でしょうか。

> 受講生さん:
>
> おはようございます。
> 以下のとおりにコメントします。
>
>

Option Explicit
> Sub copy()
> '[1]↑モジュール、プロシージャ名、変数名等には、Excel VBAで出てくるキーワードとかぶるものは避けましょう
> '   バグの温床になります。
> '
> '[2] まずは、ローカルのフォルダに保存することに成功してください。
> '    保存先も、最初は、こんな深いディレクトリではなく、もっと浅いもので。フォルダ名も、シンプルにで短いもので。
> '   https://d.docs.live.net/... への直接のアップロード＆保存はできるのか？
> '   僕もやったことはないので定かではありません。
> '
> ' copy Macro
> '
> 
> '
>         Sheets("明細").Select
>         Sheets("明細").copy
>         ActiveWorkbook.SaveAs Filename:= _
>             "https://d.docs.live.net/[[hash]]/ドキュメント/仕事/ＶＢＡ_セミナー/基礎/ksfollow_advanced/【動画12】%20条件に一致するデータだけのリストを、条件に一致しないデータを削除する方法で複数の別ファイルとして連続的に作成する。/200426_c.xlsx" _
>             , FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
>         ActiveWorkbook.Close
>     
> End Sub
> 
> Sub rensyu()
>         Dim flname
>         Sheets("明細").Select
>         Sheets("明細").copy
>         flname = "200426_c.xlsx"
> 
>         ActiveWorkbook.SaveAs Filename:= _
>             "https://d.docs.live.net/[[hash]]/ドキュメント/仕事/ＶＢＡ_セミナー/基礎/ksfollow_advanced/【動画12】%20条件に一致するデータだけのリストを、条件に一致しないデータを削除する方法で複数の別ファイルとして連続的に作成する。\" & flname _
>             , FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
>            
>         ActiveWorkbook.Close
> 
> End Sub

>
> > ファイルの保存を自動マクロで記録して実行すれば、ファイル保存できました。
> > ファイル名だけ、変数にしてファイル保存しようとするとエラーがでました。色々試しましたが、うまくいきません。お手数ですが、教えてください。今まで順調に学習できていましたが、今回はギブアップです。
> >

2020/04/27 15:39

受講生さんのコメント

(コメントID: 6511) 添付ファイルのダウンロード権限がありません

先ほど質問した件はわかりました。すみませんでした。
ファイル名と拡張子までをよく確認しないとダメでした。初歩的ミスで情けないです。
教材はxlsですが、ファイルを保存時点でファイルの形式がxlsxに変わってしたことを確認せず、プログラムを書いていたため、他でもミスがあります。今後気をつけたいと思います。添付した資料では再度エラーがでていましたが、拡張子が間違っていたのが現時点でわかり、うまく動きました。エラー原因を把握するのに時間がかかってしまい、今回の講座については、２時間ほどかかりました。（トホホ）

2020/04/27 21:46

小川慶一さんのコメント

(コメントID: 6512)

受講生さん:

ありがとうございます。

> 教材はxlsですが、ファイルを保存時点でファイルの形式がxlsxに変わってしたことを確認せず

そういうことでしたか。
この教材を作った当時は .xls ファイルも見られましたが、こういうところでつまずかれる方のないよう、教材も作り直しをしたいです。

2020/04/28 01:00

受講生さんのコメント

(コメントID: 6522)

受講生さん:
下記の質問についてまだご回答をいただいておりませんが、いかがでしょうか。

> 小川慶一さん:
> おはようございます。
> ローカルのフォルダでやるとエラーがでることなく作成できました。ありがとうございました。
> なお、パスの「￥」と「/」と「\」との違いはありますか。すべて同じ意味でしょうか。
>
> > 受講生さん:
> >
> > おはようございます。
> > 以下のとおりにコメントします。
> >
> >

Option Explicit
> > Sub copy()
> > '[1]↑モジュール、プロシージャ名、変数名等には、Excel VBAで出てくるキーワードとかぶるものは避けましょう
> > '   バグの温床になります。
> > '
> > '[2] まずは、ローカルのフォルダに保存することに成功してください。
> > '    保存先も、最初は、こんな深いディレクトリではなく、もっと浅いもので。フォルダ名も、シンプルにで短いもので。
> > '   https://d.docs.live.net/... への直接のアップロード＆保存はできるのか？
> > '   僕もやったことはないので定かではありません。
> > '
> > ' copy Macro
> > '
> > 
> > '
> >         Sheets("明細").Select
> >         Sheets("明細").copy
> >         ActiveWorkbook.SaveAs Filename:= _
> >             "https://d.docs.live.net/[[hash]]/ドキュメント/仕事/ＶＢＡ_セミナー/基礎/ksfollow_advanced/【動画12】%20条件に一致するデータだけのリストを、条件に一致しないデータを削除する方法で複数の別ファイルとして連続的に作成する。/200426_c.xlsx" _
> >             , FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
> >         ActiveWorkbook.Close
> >     
> > End Sub
> > 
> > Sub rensyu()
> >         Dim flname
> >         Sheets("明細").Select
> >         Sheets("明細").copy
> >         flname = "200426_c.xlsx"
> > 
> >         ActiveWorkbook.SaveAs Filename:= _
> >             "https://d.docs.live.net/[[hash]]/ドキュメント/仕事/ＶＢＡ_セミナー/基礎/ksfollow_advanced/【動画12】%20条件に一致するデータだけのリストを、条件に一致しないデータを削除する方法で複数の別ファイルとして連続的に作成する。\" & flname _
> >             , FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
> >            
> >         ActiveWorkbook.Close
> > 
> > End Sub

> >
> > > ファイルの保存を自動マクロで記録して実行すれば、ファイル保存できました。
> > > ファイル名だけ、変数にしてファイル保存しようとするとエラーがでました。色々試しましたが、うまくいきません。お手数ですが、教えてください。今まで順調に学習できていましたが、今回はギブアップです。
> > >

2020/04/28 17:59

小川慶一さんのコメント

(コメントID: 6523)

受講生さん:

>先ほど質問した件はわかりました。

とのことでしたので、自己解決されたのかと思っていました。

> > なお、パスの「￥」と「/」と「\」との違いはありますか。すべて同じ意味でしょうか。

違います。
まずは、どのような違いがあるか、調べてみてください！

> 受講生さん:
> 下記の質問についてまだご回答をいただいておりませんが、いかがでしょうか。
>
> > 小川慶一さん:
> > おはようございます。
> > ローカルのフォルダでやるとエラーがでることなく作成できました。ありがとうございました。
> > なお、パスの「￥」と「/」と「\」との違いはありますか。すべて同じ意味でしょうか。
> >
> > > 受講生さん:
> > >
> > > おはようございます。
> > > 以下のとおりにコメントします。
> > >
> > >

Option Explicit
> > > Sub copy()
> > > '[1]↑モジュール、プロシージャ名、変数名等には、Excel VBAで出てくるキーワードとかぶるものは避けましょう
> > > '   バグの温床になります。
> > > '
> > > '[2] まずは、ローカルのフォルダに保存することに成功してください。
> > > '    保存先も、最初は、こんな深いディレクトリではなく、もっと浅いもので。フォルダ名も、シンプルにで短いもので。
> > > '   https://d.docs.live.net/... への直接のアップロード＆保存はできるのか？
> > > '   僕もやったことはないので定かではありません。
> > > '
> > > ' copy Macro
> > > '
> > > 
> > > '
> > >         Sheets("明細").Select
> > >         Sheets("明細").copy
> > >         ActiveWorkbook.SaveAs Filename:= _
> > >             "https://d.docs.live.net/[[hash]]/ドキュメント/仕事/ＶＢＡ_セミナー/基礎/ksfollow_advanced/【動画12】%20条件に一致するデータだけのリストを、条件に一致しないデータを削除する方法で複数の別ファイルとして連続的に作成する。/200426_c.xlsx" _
> > >             , FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
> > >         ActiveWorkbook.Close
> > >     
> > > End Sub
> > > 
> > > Sub rensyu()
> > >         Dim flname
> > >         Sheets("明細").Select
> > >         Sheets("明細").copy
> > >         flname = "200426_c.xlsx"
> > > 
> > >         ActiveWorkbook.SaveAs Filename:= _
> > >             "https://d.docs.live.net/[[hash]]/ドキュメント/仕事/ＶＢＡ_セミナー/基礎/ksfollow_advanced/【動画12】%20条件に一致するデータだけのリストを、条件に一致しないデータを削除する方法で複数の別ファイルとして連続的に作成する。\" & flname _
> > >             , FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
> > >            
> > >         ActiveWorkbook.Close
> > > 
> > > End Sub

> > >
> > > > ファイルの保存を自動マクロで記録して実行すれば、ファイル保存できました。
> > > > ファイル名だけ、変数にしてファイル保存しようとするとエラーがでました。色々試しましたが、うまくいきません。お手数ですが、教えてください。今まで順調に学習できていましたが、今回はギブアップです。
> > > >

2020/04/28 18:01

小川慶一さんのコメント

(コメントID: 6524)

受講生さん:

>違います。
>まずは、どのような違いがあるか、調べてみてください！

ネットで調べてもよいし、試してみてもよいです。

たとえば、ウェブページの URL の「/」について、その一部または全体を「\」に変えて、ブラウザーで所望のページを表示できるか？とか。

2020/04/28 18:04

受講生さんのコメント

(コメントID: 6525)

小川慶一さん:
「￥」と「/」とは同じですね。
しかし「\」を入力すると「not found」になります。ＶＢＡでフルパスでファイルを指定するような場合、「\」は使えないという理解でよろしいでしょうか。
> 受講生さん:
>
> >違います。
> >まずは、どのような違いがあるか、調べてみてください！
>
> ネットで調べてもよいし、試してみてもよいです。
>
> たとえば、ウェブページの URL の「/」について、その一部または全体を「\」に変えて、ブラウザーで所望のページを表示できるか？とか。

2020/04/28 18:42

小川慶一さんのコメント

(コメントID: 6526)

受講生さん:

> 「￥」と「/」とは同じですね。

この一文だけ取り出して「この命題は真か偽か？」ということでしたら、回答は「偽」です。

半角の「￥」マークは、ウェブ上ではバックスラッシュ「\」

> しかし「\」を入力すると「not found」になります。

どこに入力したのか？を明記ください(目的語)。

文脈からウェブページURLの「/」を半角の「￥」マークに置き換えた結果かと思いますが...すると、

> VBAでフルパスでファイルを指定するような場合、「\」は使えないという理解でよろしいでしょうか。

の部分が、話の流れとしておかしいです。

文脈からウェブページURLの「/」を半角の「￥」マークに置き換えた結果、「not found」になった。
↓
故に、VBAでフルパスでファイルを指定するような場合、「\」は使えないという理解した

ではおかしいですね。

さらに丁寧に考察し、調査、実験してみてください。

※こういう「目的語を逃さないで可読性高い表現をする」とか「論理の流れに破綻がないか慎重に検討する」といった表現や思考の訓練が、そのまま、マクロを書くときのパラメータ不足や条件式の判定漏れとかでのバグを撲滅するための訓練になります。

2020/04/28 19:07