| 投稿日 | ： 2005/11/08(Tue) 19:11 |
| 投稿者 | ： ｋｙａｎ |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Excel セルをテキストで選んで表示（クリップボード） |
はじめまして。今Excelファイルをダイアログボックスから指定して、あるセルから、あるセルまで
を数字で指定してコピーして、クリップボードでデータ取得、Text1.textに表示させるというプログラムに
したいのですが、2回目以降にいくら数字を変えてもtext1.textの表示が変わりません。
どなたかアドバイスをください。
以下がソースです。
Option Explicit
Dim t As Integer
Dim y As Integer
Dim tr As Integer
Dim yr As Integer
Dim tp As Integer
Dim fname
Private Sub Command1_Click()
On Error Resume Next
Dim xapp As Excel.Application
Dim xbook As Excel.Workbook
Dim xsheet As Excel.Worksheet
fname = CommonDialog1.FileName
Set xapp = CreateObject("Excel.application")
Set xbook = xapp.Workbooks.Open(fname)
Set xsheet = xbook.Worksheets(1)
t = Text3.Text
y = Text4.Text
tr = Text5.Text
yr = Text6.Text
xapp.DisplayAlerts = False
xsheet.Range(Cells(t, y), Cells(tr, yr)).Copy
Text1.Text = Clipboard.GetText()
xapp.Quit
Set xsheet = Nothing
Set xbook = Nothing
Set xapp = Nothing
End Sub
Private Sub Command2_Click()
With CommonDialog1
.FileName = ""
.Filter = "Excel file(*.xls)|*.xls|全てのファイル(*.*)|*.*"
.ShowOpen
End With
fname = CommonDialog1.FileName
Text2.Text = fname
End Sub