VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [管理用]

投稿日： 2005/10/19(Wed) 11:56
投稿者： DAI
Ｅメール：
ＵＲＬ：
タイトル： EXCELでのコピー・貼り付けについて

いつもお世話になります。

現在VB6.0でexcelファイルを操作をしようとしていますが、
いきなりつまづきました。
質問内容は以下のようなコードで
セルのコピーを行って
それを別のセルに貼り付けようとしていますが、
うまくいきません。
最後のペーストの部分でエラーが発生します。
エラー内容（オブジェクトは、このプロパティまたはメソッドをサポートしていません。）

どなたか教えてください。

Dim AppXLS As Object

    Set AppXLS = CreateObject("excel.application.9")
    With AppXLS.Application
        .Workbooks.Add
        .Visible = True
        .Worksheets.Add
        
        With .Workbooks(1).Worksheets(1).Range("A1")
            .Value = "ABCDEFG"
            .Font.Size = 20
            .Font.ColorIndex = 3
            .Columns("A:A").AutoFit
        End With
    
    　　.Worksheets("Sheet1").Range("A1").Copy
    
    　　.Worksheets("Sheet1").Range("E5").Paste

    End With

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- VBレスキュー(花ちゃん) - - Web Forum -