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

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

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

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