VBAでiPadやiPhoneで写真を取り込む際にDCIMフォルダが出来ると思いますが、そのフォルダから必要な写真をドラックして何枚かエクセルシートに貼り付けます。

補足

DCIMフォルダでなくとも取り込んだフォルダから指定のフォルダに保存したいです。 指定のフォルダ名はテストフォルダ内の保存した日付フォルダとしたいです。

Visual Basic | Excel99閲覧xmlns="http://www.w3.org/2000/svg">100

ベストアンサー

0

ありがとうございます。 ご指示いただいたものをやってみて自身のファイルがxlsmなので変更してみました。 Sub コピーしてzipにする(xlsmのパス$, zipのパス$) zipのパス = Replace(xlsmのパス, ".xlsm", ".zip") FileCopy xlsmのパス, zipのパス End Sub のところでファイルが見つかりませんと出てしまいました。

ThanksImg質問者からのお礼コメント

ありがとうございます。 まだ達成していないのですが、勉強して完成させたいと思います。

お礼日時:2021/11/27 5:05