دسترسی به اکسس در ویژوال بیسیک

[mohammadriano]

با سلام
من تازه تو این سایت ثبت نام کردم یک سوال دارم اگه ممکنه بهش جواب بدین :اشتباه:
چگونه می توان از بانک اطلاعاتی اکسس با پسوند mdb عناصر جدول را در یک ole که اکسل هست رو اضافه کرد؟
البته تا اینجاش رو می دونم:
Form1.ole.object.worksheets(1).range("A1") = dataname.database...???baghiash
لطفا کد را بدون set کردن بنویسید مانند سمت چپ مساوی که set نشده است ممنون؟
مثلا در رکور 2 می خاهم Phone Number را به خانه A1 در اکسل ارجاع دهم؟
لطفا پاسخ ها بدون set کردن باشد؟فقط قسمت دوم مساوی رو میخوام به اکسل ارجاع بدم ؟؟

[samiraamiri]

اگر اشتباه نکرده باشم شما می خواید اطلاعات بانک رو به اکسل ارسال کنید
برای این کار می تونید اطلاعات جدولتون رو در clipboard ذخیره کنید و در اکسل paste کنید
این تابع برای باز کردن اکسل هست

Private Function useexcel() As Boolean
Dim ExExportSecond As Boolean
On Error GoTo Errormsg
Dim exapp , shtgas as object
useexcel = True

exapp = CreateObject("Excel.Application")

shtgas = exapp.Workbooks.Add
ExExportSecond = True
exapp.Visible = True
Exit Function

Errormsg:
useexcel = False

End Function



و این تابع هم برای ارسال به اکسل


Private Sub ExportToexcel()
Dim StrClipboard As String
If useexcel() Then 'تابعی که اکسل را باز می کند
StrClipboard = ""
حالا StrClipboard رو با اطلاعات خودتون پر کنید و بعد

StrClipboard = StrClipboard.Substring(0, Len(StrClipboard) - 1)
StrClipboard = StrClipboard & vbCrLf

''''''insert to clipboard
Clipboard.Clear()
Clipboard.SetText(StrClipboard)
exapp.ActiveSheet.Range("A1").Select()
exapp.ActiveSheet.PasteSpecial(Format:="Text", Link:=False, DisplayAsIcon:=False)
End If
End Sub

امیدوارم نتیجه بگیرید

[parcosoft]

exapp.ActiveSheet.Range("A1").Select()
exapp.ActiveSheet.PasteSpecial(Format:="Text", Link:=False, DisplayAsIcon:=False)
این خط ها اشکال دارن.
از Exapp خطا می گیره