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

投稿日： 2007/04/25(Wed) 16:49
投稿者： いとう
Ｅメール：
ＵＲＬ：
タイトル： Re^4: エクセルのセルに貼り付けるには

すいません色々調べて結局持っていた本を参考にエクセルに文字を送信できたのですが、

Private Sub Command1_Click()
    Dim xlsApp   As Object
    Dim xlsBook  As Object
    Dim xlsSheet As Object
    
    ' エラーを抑止
    On Error Resume Next
    ' 既に起動しているExcelへの参照
    Set xlsApp = GetObject(, "Excel.Application")
    
    ' アクティブなブックを参照
    Set xlsBook = xlsApp.ActiveWorkbook
    
' アクティブなワークシートを参照
        Set xlsSheet = xlsBook.ActiveSheet
    
    ' Excelへデータを送るプロシージャの呼び出し
    Call SebdData2Excel(xlsBook, xlsSheet)
    ' オブジェクトを解放
    Set xlsSheet = Nothing
    Set xlsBook = Nothing
    Set xlsApp = Nothing
    On Error GoTo 0
End Sub

Private Sub SebdData2Excel(xlsBook As Object, _
                           xlsSheet As Object)
    Dim intCol As Integer
    Dim intRow As Integer
    Const xlLineMarkers = &H41
    Const xlLocationAsObject = 2
    
xlsSheet.Cells(1, 1) = "A"

End Sub

現在上のようになっていて、セルを指定しないと文字を送れないのですが、セルを特に指定しないで
現在位置のセルに文字を書かせるにはどのようにしたら良いでしょうか？

よろしくお願いします。

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

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