CSVファイルをExcelに読み込む前にセルの位置を移動させるには？ (ID：108509)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

魔界の仮面弁士様

いつもありがとうございます。

エラーなのですが、'オブジェクト変数にオブジェクトの参照を代入した後で
Rangeにてセルを移動しようとすると
「実行時エラー1004  Rangeメソッドは失敗しました。」
というエラーになってしまいます。
下にコードを書きますのでよろしくお願いいたします。

Private Sub Command2_Click()

'CSVファイルの読込
    Dim xlapp    As Excel.Application
    Dim FileName As String
    Dim xlsheet As Excel.Workbook
    
    
    'CSVファイルを拡張子を変更して読込
    FileName = App.Path & "\test.csv"
    
    'オブジェクト変数にオブジェクトの参照を代入
    Set xlapp = New Excel.Application
           
    xlapp.Range("A2").Select            
     →ここの部分でエラーになります      
            
    '各列のデータに合ったデータ型を指定して読み込み
    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                  '入力データの幅にセルの幅を
    xlapp.Cells.EntireColumn.AutoFit    '広げる。
        
    xlapp.Range("A2").Select            'ホームポジションに移動
    
    'Excel形式で保存する
    xlapp.Workbooks("test.csv").SaveAs FileName:="test.xls", FileFormat:=xlExcel9795
        
    xlapp.Visible = True                'Excelを表示
    
    'コピー元の.csvを削除する
    'Kill App.Path & "\test.csv"
        
    Set xlapp = Nothing                 'オブジェクトとの関連付けを解除

End Sub

←解決時は質問者本人がここをチェックしてください。

戻る