エクセルのマクロについて
エクセルで写真帳を作成してるのですが、
保存容量が大きいため、下記のマクロをコピペしたのですが
画像は消えてしまい困ってます。
(1)どなたか下記のマクロ解読お願いします。
(2)それと、新しく保存すると、jpegの画像が消えてしまい
どうしたらよいかわからない。
(3)ボタンを作成してまして、これも消したい。
オブジェクト削除なのかなぁ?
わがまま言ってすいません。自分には無理なんでお願いします。
Option Explicit
Sub Macro1()
Dim SheetCount As Integer
Dim i As Integer
Dim fname As String
Dim Ws As Worksheet
Dim OrgWorkBook As Workbook
Dim NewWorkBook As Workbook
SheetCount = Worksheets.Count
ChDir "C:\Documents and Settings\たかじん\デスクトップ"
fname = Application.GetSaveAsFilename _
(, "Microsoft Excel ブック (*.xls), *.xls")
If fname = "False" Then Exit Sub
Set OrgWorkBook = ActiveWorkbook
Workbooks.Add (xlWBATWorksheet)
Set NewWorkBook = ActiveWorkbook
For i = 2 To SheetCount
Sheets.Add after:=Worksheets(Worksheets.Count)
Next
OrgWorkBook.Activate
i = 1
For Each Ws In Worksheets
Ws.Cells.Copy Destination:=NewWorkBook.Sheets(i).Range("A1")
i = i + 1
Next
NewWorkBook.Activate
ActiveWorkbook.Close True, fname
ChDir Application.DefaultFilePath
お礼
お忙しい中、ご回答ありがとうございます。 VBS を調べてみます。他にも利用できそうですね。 open offeeceの使い方のについても調べてみます。 どちらもおもしろそうです。 貴重な情報ありがとうございます。 m(_ _)m
補足
早速、ありがとうございます。 マクロの内容ですが自作ではなく、会社から配られたものです。 給料計算みたいなものに加えて、作業の部門、内容別に分類して、交通費や宿泊費 などそれぞれにまとめて部門ごとに印刷するシートを作るものです。一つは、各部門、種類ごとの詳しい金額ばかりのシートです。他は部門ごとに交通費、金額や作業内容などをまとめたものを印字するものです。 この様な表現でわかりますでしょうか? それと、CSVは、テキストみたいなデータばかりのもの、VBSについては、勉強不足でまだわかりませんが、今後学んで行きたいと思います。 よろしくお願い致します。