Excel (VBA)

Excel VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 7 Professional : Excel 2010)
ブック名の拡張子を除けて名前を取得して保存
投稿日時: 19/03/07 14:12:05
投稿者: ふしぎちゃん

お世話になります。
 
ブック名と、シート名を取得して
名前を付けて保存することはできたのですが
ブック名に拡張子が
ついて、
保存したもののファイル名が
book名.xlsmシート名.xlsx
となってしまいます。
これを、
book名シート名.xlsx
としたいのですが、どのようにしたら良いかわかりません。
 
教えてください。
 
Sub アクティブシートのみDライブに保存()
     Dim wb As Workbook
     Set wb = ThisWorkbook
     myname = ActiveSheet.Name
     ActiveSheet.Copy
     ActiveWorkbook.SaveAs _
         Filename:="D:\test\" & wb.Name & myname & ".xlsx"
     ActiveWindow.Close
 End Sub

回答
投稿日時: 19/03/07 14:48:36
投稿者: WinArrow
投稿者のウェブサイトに移動

>wb.Name

Left$(wb.Name, InStr(wb.Name, ".")-1)
に変更してみてください。

投稿日時: 19/03/07 15:01:30
投稿者: ふしぎちゃん

WinArrow さん
 
有難うございます。
できました!!
 
まだまだ、勉強不足です。
有難うございました。