Ｐａｇｅ 404 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼保存したい KUＭＩ 02/11/27(水) 16:25 ┗Re:保存したい KUＭＩ 02/11/27(水) 16:35 ┗Re:保存したい でん 02/11/27(水) 16:59 ┗Re:保存したい KUＭＩ 02/11/28(木) 9:27 ┗Re:保存したい でん 02/11/28(木) 10:51 ┗Re:保存したい Jaka 02/11/28(木) 11:33 ┣書き忘れ。 Jaka 02/11/28(木) 12:04 ┃ ┗ありがとうございます！でも・・・ KUＭＩ 02/11/28(木) 16:04 ┃ ┗Re:ありがとうございます！でも・・・ Jaka 02/11/28(木) 16:30 ┃ ┗Re:ありがとうございます！でも・・・ KUＭＩ 02/11/28(木) 17:02 ┗すげぇ〜 でん 02/11/28(木) 13:15 ─────────────────────────────────────── ■題名 ： 保存したい ■名前 ： KUＭＩ ■日付 ： 02/11/27(水) 16:25 -------------------------------------------------------------------------
| いつもありがとうございます。 今開いているシートを、「名前を付けて保存」したいのです。 「保存」と書かれたボタンを押すと、 「名前を付けて保存」ダイアログボックスが出てきて、 そこに自分で名前を入れて保存させたいのです。 そのため Sub 保存() Dim Fname As Variant Set Newbook = Workbooks.Add Fname = Application.GetSaveAsFilename _ (filefilter:="Excelファイル(*.xls),*.xls") If Fname <> False Then Newbook.SaveAs Filename:=Fname End If End Sub このように書きました。 が、Newbookの変数を指定しろって言われちゃうのです。 教えて下さい。 |
| 追記です。 objectで変数を指定したら出来ました。 が、保存されていないのです。 今開いているシートの内容を、新しく保存したいのに、 白紙のまま保存されてしまうのです。 何故でしょう。 ▼KUＭＩ さん： >いつもありがとうございます。 > >今開いているシートを、「名前を付けて保存」したいのです。 >「保存」と書かれたボタンを押すと、 >「名前を付けて保存」ダイアログボックスが出てきて、 >そこに自分で名前を入れて保存させたいのです。 > >そのため >Sub 保存() > Dim Fname As Variant > > Set Newbook = Workbooks.Add > Fname = Application.GetSaveAsFilename _ > (filefilter:="Excelファイル(*.xls),*.xls") > If Fname <> False Then > Newbook.SaveAs Filename:=Fname > End If > >End Sub > >このように書きました。 >が、Newbookの変数を指定しろって言われちゃうのです。 > >教えて下さい。 |
| ▼KUＭＩ さん： こんにちわ。 >>Sub 保存() >> Dim Fname As Variant >> >> Set Newbook = Workbooks.Add ↑この行！ 新規ブックを開いて、それを保存してしまいますよ。 現在編集中のブックを保存するんなら Set Newbook = ActiveWorkbook に直してみて〜。 >> Fname = Application.GetSaveAsFilename _ >> (filefilter:="Excelファイル(*.xls),*.xls") >> If Fname <> False Then >> Newbook.SaveAs Filename:=Fname >> End If >> >>End Sub >> じゃ！ |
| でん さん、どうもありがとう！ 現在編集中のシートのみを保存したい時は、どうすればよいですか？ >▼KUＭＩ さん： >こんにちわ。 > >>>Sub 保存() >>> Dim Fname As Variant >>> >>> Set Newbook = Workbooks.Add > ↑この行！ >新規ブックを開いて、それを保存してしまいますよ。 >現在編集中のブックを保存するんなら >Set Newbook = ActiveWorkbook >に直してみて〜。 >>> Fname = Application.GetSaveAsFilename _ >>> (filefilter:="Excelファイル(*.xls),*.xls") >>> If Fname <> False Then >>> Newbook.SaveAs Filename:=Fname >>> End If >>> >>>End Sub >>> > >じゃ！ |
| ▼KUＭＩ さん： こんにちわ。 >現在編集中のシートのみを保存したい時は、どうすればよいですか？ ん〜？編集中の１シートのみって事ですよね？ シートのみを直接保存する方法は・・・無いのでは？ 私も分からないんで、保存した後に不必要なシートを削除してみました。 Sub 保存() Dim Fname As Variant Dim SheetName As String Dim i As Integer Set Newbook = ActiveWorkbook SheetName = ActiveSheet.Name Fname = Application.GetSaveAsFilename _ (filefilter:="Excelファイル(*.xls),*.xls") If Fname <> False Then Newbook.SaveAs Filename:=Fname End If Application.DisplayAlerts = False i = 1 Do While i <= Sheets.Count If SheetName <> Sheets(i).Name Then Sheets(i).Delete Else i = i + 1 End If Loop ThisWorkbook.Saved = False ThisWorkbook.Save Application.DisplayAlerts = True End Sub ちょっと強引でしたかねぇ。 他にも方法があるかもしれませんが、とりあえず出来ます。 じゃ！ |
| こんにちは。 マクロ記録です。 Sub Macro1() Sheets("Sheet1").Copy ActiveWorkbook.SaveAs FileName:="C:\windows\ﾃﾞｽｸﾄｯﾌﾟ\ttttt.xls" End Sub |
| 上のレス、「参考にしてね！」って書き忘れちゃいました。 これだけ書き込むのも何なんで。 Sheets("Sheet1").Copy ↓ ActiveSheet.Copy |
| Jaka さん でんさん ありがとうございます！ Jakaさんのコードだと、保存する場所とブックを決めてますよね？ でも、私は最初から保存する場所とブックを決めないで、 保存する場所は自分で決められるようにしたいのです。 そこで、 ActiveSheet.Copy ActiveWorkbook.SaveAs Filename _ (filefilter:="Excelファイル(*.xls),*.xls") こんな風にしてみたんですけど、強引過ぎます？ エラーで返ってきちゃうんです。 >上のレス、「参考にしてね！」って書き忘れちゃいました。 >これだけ書き込むのも何なんで。 > >Sheets("Sheet1").Copy > ↓ >ActiveSheet.Copy |
| >ActiveSheet.Copy > ActiveWorkbook.SaveAs Filename _ > (filefilter:="Excelファイル(*.xls),*.xls") >こんな風にしてみたんですけど、強引過ぎます？ 強引過ぎると言うか、なんも考えて無い様にも．．。 Fname = Application.GetSaveAsFilename _ (filefilter:="Excelファイル(*.xls),*.xls") If Fname <> False Then ActiveSheet.Copy ActiveWorkbook.SaveAs FileName:=Fname End If |
| Jaka さん!ありがとうございます。 出来ました！ >>ActiveSheet.Copy >> ActiveWorkbook.SaveAs Filename _ >> (filefilter:="Excelファイル(*.xls),*.xls") >>こんな風にしてみたんですけど、強引過ぎます？ > >強引過ぎると言うか、なんも考えて無い様にも．．。 > >Fname = Application.GetSaveAsFilename _ > (filefilter:="Excelファイル(*.xls),*.xls") >If Fname <> False Then > ActiveSheet.Copy > ActiveWorkbook.SaveAs FileName:=Fname >End If |
| ▼Jaka さん： こんにちわ。 すんばらしい！ >Sub Macro1() > Sheets("Sheet1").Copy > ActiveWorkbook.SaveAs FileName:="C:\windows\ﾃﾞｽｸﾄｯﾌﾟ\ttttt.xls" >End Sub ありがとうございます。 勉強になります。 もっともっとがんばるぞ−！ |