| 投稿日 | ： 2003/08/21(Thu) 20:22 |
| 投稿者 | ： 花ちゃん |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^4: ＶＢでエクセル実行後(原因は....） |
下記を試して見て下さい。
原因はFileFormat:=xlCSVの部分でエラーが発生。
（変数の宣言は問題ないのでしょうか？）
Private Sub Command1_Click()
Dim xlBook As Object
Dim num As Integer
Dim fsu As Integer
Dim f_nam() As String
Dim i1 As Integer
Dim fld_name As String
Dim sys_name As String
Const xlCSV = 6
Set xlBook = GetObject("c:\test.xls")
'Bookを非表示
num = xlBook.Application.Workbooks.Count
xlBook.Parent.Windows(num).Visible = False
'メッセージや警告メッセージを表示させない
xlBook.Application.DisplayAlerts = False
fsu = 0
fsu = xlBook.Worksheets.Count
ReDim Preserve f_nam(1 To fsu)
For i1 = 1 To xlBook.Worksheets.Count
f_nam(i1) = fld_name & sys_name & xlBook.Worksheets.Item(i1).Name & ".csv"
xlBook.Sheets(xlBook.Worksheets.Item(i1).Name).SaveAs FileName:=f_nam(i1), FileFormat:=xlCSV, CreateBackup:=False
Next
'Excelの終了
xlBook.Application.Quit
Set xlBook = Nothing
End Sub