過去ログ

                                Page     769
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
   通常モードに戻る  ┃  INDEX  ┃  ≪前へ  │  次へ≫   
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
 ▼ファイルの新規作成  十六茶 03/2/19(水) 19:55
   ┗Re:ファイルの新規作成  ぴかる 03/2/19(水) 21:10
      ┗Re:ファイルの新規作成  十六茶 03/2/19(水) 21:25

 ───────────────────────────────────────
 ■題名 : ファイルの新規作成
 ■名前 : 十六茶
 ■日付 : 03/2/19(水) 19:55
 -------------------------------------------------------------------------
   単純な質問ですいません。
VBA上から別の新規のエクセルファイルをファイル名を指定して
作成したいのですが、どのようにしたら良いでしょうか。
誰か教えてください。

ちなみにフルパスでファイル名を指定したいです。
よろしくお願いします。
 ───────────────────────────────────────  ■題名 : Re:ファイルの新規作成  ■名前 : ぴかる  ■日付 : 03/2/19(水) 21:10  -------------------------------------------------------------------------
   十六茶さん、こんばんは。

こういうので良いのかな?。新規作成後、名前を付けて保存をマクロ記録して
ファイル名を変数化したものです。

Sub TEST()
  
Dim フルパス名 As String
  
  フルパス名 = "C:\My Documents\NewFile.xls"
  Workbooks.Add
  ActiveWorkbook.SaveAs Filename:=フルパス名
  
End Sub
 ───────────────────────────────────────  ■題名 : Re:ファイルの新規作成  ■名前 : 十六茶  ■日付 : 03/2/19(水) 21:25  -------------------------------------------------------------------------
   ▼ぴかる さん:
>十六茶さん、こんばんは。
>
>こういうので良いのかな?。新規作成後、名前を付けて保存をマクロ記録して
>ファイル名を変数化したものです。
>
>Sub TEST()
>  
>Dim フルパス名 As String
>  
>  フルパス名 = "C:\My Documents\NewFile.xls"
>  Workbooks.Add
>  ActiveWorkbook.SaveAs Filename:=フルパス名
>  
>End Sub


ぴかる さん 返信ありがとうございます。
この方法で試してみたいと思います。
また何かあったら投稿しますので、そのときはよろしくお願いします。
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━    通常モードに戻る  ┃  INDEX  ┃  ≪前へ  │  次へ≫    ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━                                 Page 769