FSOでエクセルファイルを作成したいのですが、
ファイルの作成はできますが、作成したファイルが開けません。
Sub 新規Excelファイルを作成する()
Dim MyFile As String
Dim myFSO As Object
MyFile = "管理簿.xlsx"
Set myFSO = CreateObject("Scripting.FileSystemObject")
With myFSO.CreateTextFile("C:\" & MyFile)
.Close
End With
Set myFSO = Nothing
End Sub
で、エラーにならずうまくいっています。
が、その出来上がったファイルを開こうとすると
「ファイル形式またはファイル拡張子が正しくありません」
と言う旨のメッセージが表示されます。
何が間違ってますか？
よろしくお願いします。
いつも大変お世話になっております。
動作が重いマクロ、プログラムが多いため、
プログレスバーを表示させたいと思っています。
フォームを20個以上準備しており、
それに対し
プログレスバーを使いたいのが10個程度であり、
今後増えるかもしれません。
そのため、標準モジュールを利用し、簡単に
プログレスバーを設定できないかと思っています。
'===================
【標準モジュール Module1】
Sub Bar_progressBarData(Byval UserFormName as string, Byval MaxData as Long,LabelName as string)
'UserFormName 引用するところ？のユーザーフォーム名
'MaxData バーの最大値設定
'LabelName バー表示するラベル名
'ProgressBarの初期設定などをやる
End sub
'-------------------------
Sub Bar_progressBarInt(Byval UserFormName as string, Byval MaxData as Long,LabelName as string)
'UserFormName 引用するところ？のユーザーフォーム名
'MaxData バーの最大値設定
'LabelName バー表示するラベル名
'ProgressBarの値を増やしていく（増加させていくプログラム）
End sub
'=================
【UserForm Test】
Sub DataChangeGraph()
'ループが多いデータ
Call Bar_progressBarInt(Me.Name,10,"Label1")'バーの値を増加させていく
End Sub
Private Sub UserForm_Initialize()
Call Bar_progressBarData(Me.Name,10,"Label1")'初期設定（例として、max10にしました)
End Sub
Maxの値、プログレスデータに使用する値は
グローバルに設定してしまうというのも楽かもしれません。
しかし、この続きの肝心なプログラムが分かりません。
「プログレスバーの作り方」
h ttp://www.h3.dion.ne.jp/~sakatsu/ProgressBarTopic.htm
このサイトが良いと評判でしたので、
見ましたが何をしているのか良く分かりませんでした。
Widthを設定？
Dim sngBarMaxWidth As Single？
そして、私がやりたいこととは少し違うようです。
私がやりたいのは、フォーム上に毎回プログレスバー用のプログラムを書くのが面倒だったので、
標準モジュールとしてSubプロシージャを作成（日本語？
そして、それを引用してプログレスバーの設定を簡単に終わらせる
ということがしたかったのです。
できれば、ラベルなど
Excelに標準で備わっているものを使用したいと思っています。
プログレスバー専用のツール（参照設定などを用いるもの）
はその後にエラーが出たとき困るので、使いたくありません。
なんとなく伝わったでしょうか？
回答よろしくお願い致します。
Excel2003 VBA
いつも大変お世話になっております。
動作が重いマクロ、プログラムが多いため、
プログレスバーを表示させたいと思っています。
フォームを20個以上準備しており、
それに対し
プログレスバーを使いたいのが10個程度であり、
今後増えるかもしれません。
そのため、標準モジュールを利用し、簡単に
プログレスバーを設定できないかと思っています。
'===================
【標準モジュール Module1】
Sub Bar_progressBarData(Byval UserFormName as string, Byval MaxData as Long,LabelName as string)
'UserFormName 引用するところ？のユーザーフォーム名
'MaxData バーの最大値設定
'LabelName バー表示するラベル名
'ProgressBarの初期設定などをやる
End sub
'-------------------------
Sub Bar_progressBarInt(Byval UserFormName as string, Byval MaxData as Long,LabelName as string)
'UserFormName 引用するところ？のユーザーフォーム名
'MaxData バーの最大値設定
'LabelName バー表示するラベル名
'ProgressBarの値を増やしていく（増加させていくプログラム）
End sub
'=================
【UserForm Test】
Sub DataChangeGraph()
'ループが多いデータ
Call Bar_progressBarInt(Me.Name,10,"Label1")'バーの値を増加させていく
End Sub
Private Sub UserForm_Initialize()
Call Bar_progressBarData(Me.Name,10,"Label1")'初期設定（例として、max10にしました)
End Sub
Maxの値、プログレスデータに使用する値は
グローバルに設定してしまうというのも楽かもしれません。
しかし、この続きの肝心なプログラムが分かりません。
「プログレスバーの作り方」
h ttp://www.h3.dion.ne.jp/~sakatsu/ProgressBarTopic.htm
このサイトが良いと評判でしたので、
見ましたが何をしているのか良く分かりませんでした。
Widthを設定？
Dim sngBarMaxWidth As Single？
そして、私がやりたいこととは少し違うようです。
私がやりたいのは、フォーム上に毎回プログレスバー用のプログラムを書くのが面倒だったので、
標準モジュールとしてSubプロシージャを作成（日本語？
そして、それを引用してプログレスバーの設定を簡単に終わらせる
ということがしたかったのです。
できれば、ラベルなど
Excelに標準で備わっているものを使用したいと思っています。
プログレスバー専用のツール（参照設定などを用いるもの）
はその後にエラーが出たとき困るので、使いたくありません。
なんとなく伝わったでしょうか？
回答よろしくお願い致します。
Excel2003 VBA
いつも大変お世話になっております。
動作が重いマクロ、プログラムが多いため、
プログレスバーを表示させたいと思っています。
フォームを20個以上準備しており、
それに対し
プログレスバーを使いたいのが10個程度であり、
今後増えるかもしれません。
そのため、標準モジュールを利用し、簡単に
プログレスバーを設定できないかと思っています。
'===================
【標準モジュール Module1】
Sub Bar_progressBarData(Byval UserFormName as string, Byval MaxData as Long,LabelName as string)
'UserFormName 引用するところ？のユーザーフォーム名
'MaxData バーの最大値設定
'LabelName バー表示するラベル名
'ProgressBarの初期設定などをやる
End sub
'-------------------------
Sub Bar_progressBarInt(Byval UserFormName as string, Byval MaxData as Long,LabelName as string)
'UserFormName 引用するところ？のユーザーフォーム名
'MaxData バーの最大値設定
'LabelName バー表示するラベル名
'ProgressBarの値を増やしていく（増加させていくプログラム）
End sub
'=================
【UserForm Test】
Sub DataChangeGraph()
'ループが多いデータ
Call Bar_progressBarInt(Me.Name,10,"Label1")'バーの値を増加させていく
End Sub
Private Sub UserForm_Initialize()
Call Bar_progressBarData(Me.Name,10,"Label1")'初期設定（例として、max10にしました)
End Sub
Maxの値、プログレスデータに使用する値は
グローバルに設定してしまうというのも楽かもしれません。
しかし、この続きの肝心なプログラムが分かりません。
「プログレスバーの作り方」
h ttp://www.h3.dion.ne.jp/~sakatsu/ProgressBarTopic.htm
このサイトが良いと評判でしたので、
見ましたが何をしているのか良く分かりませんでした。
Widthを設定？
Dim sngBarMaxWidth As Single？
そして、私がやりたいこととは少し違うようです。
私がやりたいのは、フォーム上に毎回プログレスバー用のプログラムを書くのが面倒だったので、
標準モジュールとしてSubプロシージャを作成（日本語？
そして、それを引用してプログレスバーの設定を簡単に終わらせる
ということがしたかったのです。
できれば、ラベルなど
Excelに標準で備わっているものを使用したいと思っています。
プログレスバー専用のツール（参照設定などを用いるもの）
はその後にエラーが出たとき困るので、使いたくありません。
なんとなく伝わったでしょうか？
回答よろしくお願い致します。
Excel2003 VBA
表題の通りの事をしたいと思っています。とあるサイトで参照したvbaコードで、デスクトップにファイルをExcelのブック名と同じ名前でPDFに変換するところまで出来ました。あと自動でやりたいことは2つあり、(1)とあるセルの情報を読み込み保存名にしたい【○○○.pdfという具合に】、(2)生成したpdfファイルの保存先をマクロ内に設け指定したいです。【\\サーバー名\○○\△△\□□などのように】
現状までのコードを表記します。わかる方いらっしゃいましたら、お手数ですがアドバイスお願いします。
自分はマクロは手を出したばかりで、初心者です。宜しくお願いします。
Sub pdf()
Dim i As Integer
Dim s_prn As String, oldprn As String, flg As Boolean
On Error Resume Next
s_prn = "Adobe PDF" 'インストールされているPDFプリンタの名前
oldprn = ActivePrinter 'アクティブプリンタを取得
If InStr(oldprn, s_prn) = 0 Then '切替えたいプリンタがアクティブプリンタでない場合
flg = False 'プリンタ切替フラグ
For i = 0 To 99
ActivePrinter = s_prn & " on Ne" & Format(i, "00") & ":" '「"プリンタ名"on NeXX:」形式PC用
ActivePrinter = "Ne" & Format(i, "00") & ": の " & s_prn '「NeXX: の "プリンタ名"」形式PC用
If ActivePrinter <> oldprn Then
flg = True 'プリンタ切替成功
Exit For
End If
Next i
If flg = False Then 'プリンタ切替失敗の場合
MsgBox "プリンタ名:" & s_prn & " が見つかりません。"
Exit Sub
End If
End If
ActiveSheet.PrintOut
ActivePrinter = oldprn 'アクティブプリンタを元に戻す
MsgBox "終了しました。"
End Sub
表題の通りの事をしたいと思っています。とあるサイトで参照したvbaコードで、デスクトップにファイルをExcelのブック名と同じ名前でPDFに変換するところまで出来ました。あと自動でやりたいことは2つあり、(1)とあるセルの情報を読み込み保存名にしたい【○○○.pdfという具合に】、(2)生成したpdfファイルの保存先をマクロ内に設け指定したいです。【\\サーバー名\○○\△△\□□などのように】
現状までのコードを表記します。わかる方いらっしゃいましたら、お手数ですがアドバイスお願いします。
自分はマクロは手を出したばかりで、初心者です。宜しくお願いします。
Sub pdf()
Dim i As Integer
Dim s_prn As String, oldprn As String, flg As Boolean
On Error Resume Next
s_prn = "Adobe PDF" 'インストールされているPDFプリンタの名前
oldprn = ActivePrinter 'アクティブプリンタを取得
If InStr(oldprn, s_prn) = 0 Then '切替えたいプリンタがアクティブプリンタでない場合
flg = False 'プリンタ切替フラグ
For i = 0 To 99
ActivePrinter = s_prn & " on Ne" & Format(i, "00") & ":" '「"プリンタ名"on NeXX:」形式PC用
ActivePrinter = "Ne" & Format(i, "00") & ": の " & s_prn '「NeXX: の "プリンタ名"」形式PC用
If ActivePrinter <> oldprn Then
flg = True 'プリンタ切替成功
Exit For
End If
Next i
If flg = False Then 'プリンタ切替失敗の場合
MsgBox "プリンタ名:" & s_prn & " が見つかりません。"
Exit Sub
End If
End If
ActiveSheet.PrintOut
ActivePrinter = oldprn 'アクティブプリンタを元に戻す
MsgBox "終了しました。"
End Sub
表題の通りの事をしたいと思っています。とあるサイトで参照したvbaコードで、デスクトップにファイルをExcelのブック名と同じ名前でPDFに変換するところまで出来ました。あと自動でやりたいことは2つあり、(1)とあるセルの情報を読み込み保存名にしたい【○○○.pdfという具合に】、(2)生成したpdfファイルの保存先をマクロ内に設け指定したいです。【\\サーバー名\○○\△△\□□などのように】
現状までのコードを表記します。わかる方いらっしゃいましたら、お手数ですがアドバイスお願いします。
自分はマクロは手を出したばかりで、初心者です。宜しくお願いします。
Sub pdf()
Dim i As Integer
Dim s_prn As String, oldprn As String, flg As Boolean
On Error Resume Next
s_prn = "Adobe PDF" 'インストールされているPDFプリンタの名前
oldprn = ActivePrinter 'アクティブプリンタを取得
If InStr(oldprn, s_prn) = 0 Then '切替えたいプリンタがアクティブプリンタでない場合
flg = False 'プリンタ切替フラグ
For i = 0 To 99
ActivePrinter = s_prn & " on Ne" & Format(i, "00") & ":" '「"プリンタ名"on NeXX:」形式PC用
ActivePrinter = "Ne" & Format(i, "00") & ": の " & s_prn '「NeXX: の "プリンタ名"」形式PC用
If ActivePrinter <> oldprn Then
flg = True 'プリンタ切替成功
Exit For
End If
Next i
If flg = False Then 'プリンタ切替失敗の場合
MsgBox "プリンタ名:" & s_prn & " が見つかりません。"
Exit Sub
End If
End If
ActiveSheet.PrintOut
ActivePrinter = oldprn 'アクティブプリンタを元に戻す
MsgBox "終了しました。"
End Sub
表題の通りの事をしたいと思っています。とあるサイトで参照したvbaコードで、デスクトップにファイルをExcelのブック名と同じ名前でPDFに変換するところまで出来ました。あと自動でやりたいことは2つあり、(1)とあるセルの情報を読み込み保存名にしたい【○○○.pdfという具合に】、(2)生成したpdfファイルの保存先をマクロ内に設け指定したいです。【\\サーバー名\○○\△△\□□などのように】
現状までのコードを表記します。わかる方いらっしゃいましたら、お手数ですがアドバイスお願いします。
自分はマクロは手を出したばかりで、初心者です。宜しくお願いします。
Sub pdf()
Dim i As Integer
Dim s_prn As String, oldprn As String, flg As Boolean
On Error Resume Next
s_prn = "Adobe PDF" 'インストールされているPDFプリンタの名前
oldprn = ActivePrinter 'アクティブプリンタを取得
If InStr(oldprn, s_prn) = 0 Then '切替えたいプリンタがアクティブプリンタでない場合
flg = False 'プリンタ切替フラグ
For i = 0 To 99
ActivePrinter = s_prn & " on Ne" & Format(i, "00") & ":" '「"プリンタ名"on NeXX:」形式PC用
ActivePrinter = "Ne" & Format(i, "00") & ": の " & s_prn '「NeXX: の "プリンタ名"」形式PC用
If ActivePrinter <> oldprn Then
flg = True 'プリンタ切替成功
Exit For
End If
Next i
If flg = False Then 'プリンタ切替失敗の場合
MsgBox "プリンタ名:" & s_prn & " が見つかりません。"
Exit Sub
End If
End If
ActiveSheet.PrintOut
ActivePrinter = oldprn 'アクティブプリンタを元に戻す
MsgBox "終了しました。"
End Sub
