VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[管理用]
| 投稿日 | ： 2005/06/28(Tue) 13:41 |
| 投稿者 | ： あき |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： エクセルのファイル形式の変更について |
VBを始めて半年くらいのものです。
VBから任意のCSVファイルをExcelで読み込み、
ファイルの種類を変更してエクセルのファイル形式にして保存したいのですが、
どうしてもできません。
CSVファイルを読み込むところはできたのですがファイル形式（CSV→XLS）の変更がうまくいきません
。
ご教授お願いします。
ソースは
'CSVファイルの読込
'拡張子を変更してファイルをコピー
FileName = Mid(Text1.Text, 1, Len(Text1.Text) - 3) & "txt"
FileCopy Text1.Text, FileName
Set xlApp = New Excel.Application
xlApp.Workbooks.OpenText FileName:=FileName, _
DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
Comma:=True, FieldInfo:=Array(Array(1, xlTextFormat), _
Array(2, xlTextFormat), Array(3, xlTextFormat), _
Array(4, xlTextFormat), Array(5, xlYMDFormat), _
Array(6, xlGeneralFormat), Array(7, xlGeneralFormat), _
Array(8, xlGeneralFormat))
xlApp.Cells.Select '入力データの幅にセルの幅を
Selection.ColumnWidth = 10 '幅10
xlApp.Range("A1").Select 'ホームポジションに移動
xlApp.DisplayAlerts = False
xlApp.Visible = True 'Excelを表示
---------------ここに形式の変更をいれたい---------------------
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）