【EXCEL-VBA】保存の時にシート名が変わってしまう

Question

お世話になります。

エクセルのマクロでワークシートをprn形式で保存するために
下段のマクロを作成しました。

実行すると目的通り「B5」セルの値をファイル名にして、
prn形式で保存するところまでは問題ありません。

ですがアクティブシートのシート名が
「B5」セルの値に変わってしまいます。

アクティブシートの名前はそのままで、
保存するファイル名だけ「B5」セルの値を
割り当てたいと思っております。

すいませんが以下のコードの
間違っているところを教えて下さい。

追記)
単純な処理なので前述の処理を行う
新規のコードを書いて頂いてもOKです。

原因不明で不思議には感じているですが、、。

※出力は「.prn」ですが、拡張子は「.html」です。
※EXCELのバージョンは2010です
※F1ヘルプの呼び出しが壊れてしまいヘルプが閲覧できません

↓　このサイトを参考にしました
http://www.officepro.jp/excelvba/book_new/index9.html


すいませんがよろしくお願いします。

Sub B5LSave_06()
    Range("B5").Select
    Dim book1 As Workbook
    Dim i As String
 
    Set book1 = ActiveWorkbook
    i = Range("B5").Value
            
    book1.SaveAs Filename:="C:\A\" & i & ".html", _
    FileFormat:=xlTextPrinter
   
End Sub

bonaron · Accepted Answer

これって １つのシートだけを CSV に出力するのと同様の処理でよろしいのでは？

Sub Sample()
Dim book1 As Workbook
Dim i As String

ActiveSheet.Copy
Set book1 = ActiveWorkbook
i = Range("B5").Value

book1.SaveAs Filename:="C:\A\" & i & ".html", _
FileFormat:=xlTextPrinter

book1.Close False
End Sub

WindFaller · Answer

こんばんは。

>こういうツール(ソフト)って、Visual Basicでも作れますか？
VB.Net ということでしょうか。もちろんですね。

資料の絶対数が違います。今、VBAは、暗中模索でやっているだけですから。ただし、VB.Net はあまりポピュラーではなさそうで、MS では、C#おすすめのようです。世間(雜誌)では、Python が頻繁に宣伝していますね。

一応、私は、VB.Net の公開講座で何十時間と学校に行って、覚えたつもりでいたけれども、それから、あっという間に、10年が経ってしまいました。私のやっているのは、VBAでこれだけできる、ということをやっているに過ぎません。無駄に、10年を過ごしてしまった感が強いです。

VBAの最大の弱点は、意外と知られていないのは、VBA自体のメモリの使用量の制限なのです。VB.Net というよりも、VSは豊富なツールが多いわけです。本音の所は、本格的には「せざるを得ない」というところなのです。いえ、現行でも、Excel等のVBAは、そのまま、フリーでVSに移行できる(よう)です。私のほうは、VSTOをインストールしたままになっていますが。

WindFaller · Answer

こんにちは。

>webやブログに貼り付ける文字リンクや表を
>エクセル上で作成して出力しています。

>テキストで開いて貼り付けています。

そういうことでしたか!
それは、あまりにも違いすぎるような気がします。
私は、勢いで貼り付けることが怖いために、全部をマクロ化することはしませんが、可能なことは可能です。

簡単な例を示してみましょうか？
単なる可能性だけを示唆するもので、本格的なものではありません。
今の私の力は、このぐらいだということをお見せしているだけです。
(かなり劣化しています)

以下は、失敗する可能性は、補正処理していないので、10の内1回程度です。昔の、闇雲の時代から、やっと、エラー処理にたいする措置ができるようになったという気がしています。仕事でお使いでしょうから、不謹慎かもしれませんが、こういうのは、面白いですよね。遊び感覚になってしまっています。

p.s.どんなに難しい質問でも、気に入った質問は、解答が出るまで、私は考え続ける人です。ですが、本格的知識がないのと、最近、この手のものは、Python に移行しつつあるので、余計に不勉強が祟っています。これじゃあいけないという事ばりです。

'//教えて！gooの検索プログラム//
'//
Sub OshieteGoo_Search()
Dim sTxt As Variant
Dim myURL As String
Dim objIE As Object
Dim i As Long
On Error GoTo ErrHandler
sTxt = Application.InputBox("検索語を入れてください", "検索ワード", "EXCEL", Type:=2)
If VarType(sTxt) = vbBoolean Or sTxt = "" Then Exit Sub
myURL = "http://oshiete.goo.ne.jp/search_goo/result/?MT=" & sTxt & "&code=utf8&mt_opt=a&qatype=qa&st=all&sr=date&tf=m1"
Set objIE = CreateObject("InternetExplorer.Application")
　 objIE.Visible = True
　 objIE.Navigate2 myURL
With objIE
　 Do Until Not .Busy And .readyState = 4: DoEvents: Loop
　 Set objIE = objIE
End With
'On Error Resume Next
'VBAコーディングルール反則
Dim BBtns
Dim btn
With objIE
　　Do Until Not .Busy And .readyState = 4: DoEvents: Loop
　　Set BBtns = .document.getElementsByTagName("a")　　'(38)
　　　 For i = 36 To 40
　　　　If BBtns(i).InnerText Like "回答受付中" Then
　　　　　Set btn = BBtns(i)
　　　　　　 If Not btn Is Nothing Then
　　　　　　　 btn.Click
　　　　　　 Exit For
　　　　　　 End If
　　　　 End If
　　　 Next
End With
ErrHandler:
If Err.Number > 0 Then MsgBox Err.Description & " " ' & Erl
End Sub

WindFaller · Answer

あまり、自信がありません。
こういうものには、新しいスタイルになってからは、手をつけたことがなかったのですが、ソースを見比べると、昔と今では雲泥の違いがあるようですね。

この質問上にあるマクロでは、ただTextファイルの拡張子が、htmlになっているだけのものでしたから、以下は、意味的に違うのかもしれません。

Webファイルの発行を試しに作ってみました。出力は、UTF-8にしました。

>アクティブシートの名前はそのままで、
>保存するファイル名だけ「B5」セルの値を
>保存の時にシート名が変わってしまう
といっても、この出力では、シート構造を維持しているわけでもありません。
シート構造を維持する方法は、別にあるはずです。(確かめてはいません)

'//
Sub HtmlPublish()
　Dim myPath As String
　Dim fName As String
　Dim shName As String
　myPath ="C:\A\"
　fName = Range("B5").Value
　shName = ActiveSheet.Name
　With ActiveWorkbook
　　.WebOptions.Encoding = msoEncodingUTF8
　　With .PublishObjects.Add( _
　　　　xlSourceSheet, _
　　　　myPath & fName & ".html", _
　　　　shName, "", _
　　　　xlHtmlStatic, _
　　　　ThisWorkbook.Name)
　　　.Publish (True)
　　　.AutoRepublish = False
　　End With
　End With
End Sub

【EXCEL-VBA】保存の時にシート名が変わってしまう

これって １つのシートだけを CSV に出力するのと同様の処理でよろしいのでは？

こんばんは。

こんにちは。

あまり、自信がありません。

似たような質問が見つかりました

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

これって１つのシートだけを CSV に出力するのと同様の処理でよろしいのでは？