با سلام
کدهای ذیل فایل test.xlsx از درایو d و پوشه test را فراخوانی مینماید
فایل test.xlsx پس از فراخوانی محتویات A1 در تکست باکس یک قرار میگیرد
کد PHP:
Private Sub CommandButton1_Click()
Dim wkbk As Workbook
Dim txt As Double
With Application
.EnableEvents = False
.ScreenUpdating = False
.DisplayAlerts = False
End With
Set wkbk = Workbooks.Open("d:\test\test.xlsx") 'change to your path and filename'
txt = wkbk.Sheets(1).Range("a1").Value 'change sheet and cell to suit'
TextBox1.Text = txt
wkbk.Close True
With Application
.EnableEvents = True
.ScreenUpdating = True
.DisplayAlerts = True
End With
End Sub
علاقه مندی ها (Bookmarks)