投稿日 | : 2003/10/30(Thu) 00:59 |
投稿者 | : のど |
Eメール | : |
URL | : |
タイトル | : 2回目が・・・ |
はじめまして,のどです.
XPでVB6.0を使っています.
最近VBでエクセルのマクロを使い始めたのですが,
テキスト形式の数値データをエクセルで読み込んで処理したいと思っています.
いま,リストボックスにファイルをドラッグ&ドロップしてきて,ボタンを押したら
処理するようにしています.なんとか思うようにできたのですが,1度実行して処理した後,
続けて同じ処理を行うと,思うような結果が出力されません.
こんな感じです.
Private Sub Command1_Click()
Const num = 13
Dim File_Name(1 To num) As String
'ファイル名格納
For i = 1 To num
File_Name(i) = File_List.List(i - 1)
Next i
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets(1)
xlApp.Visible = True
Dim xlBook3 As Excel.Workbook
Dim xlSheet3 As Excel.Worksheet
Set xlBook3 = xlApp.Workbooks.Open(File_Name(3)) 'オープンするファイル名
Set xlSheet3 = xlBook3.Worksheets(1)
With xlSheet3
.Columns("A:A").Select
xlApp.Selection.TextToColumns Destination:=.Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1)), TrailingMinusNumbers:=True
.Range("A1").Select
.Range(Selection, Selection.End(xlDown)).Select
.Range(Selection, Selection.End(xlToRight)).Select
End With
With xlApp
.Selection.Copy
.Windows("Book1").Activate
.Range("B2").Select
.ActiveSheet.Paste
End With
Clipboard.Clear
xlBook3.Close SaveChanges:=False
Set xlBook3 = Nothing
Set xlSheet3 = Nothing
xlSheet.Range("A1").Select
Set xlBook = Nothing
Set xlSheet = Nothing
Set xlApp = Nothing
File_List.Clear
End Sub
どのようにすればよいのでしょうか?
よろしくお願いします.