mr.siahatgar
پنج شنبه 10 تیر 1389, 11:36 صبح
سلام
دوستان من کد زیر را دارم برای کپی کردن یک فایل اکسل به اکسس منتهی من یک مشکل دارم و اون اینه که فایل اکسل من از یه فایل دیگه رفرش میشه یعنی اپدیت میشه و تا اون فایل اکسل را باز نکنم اپدیت نمیشه در نتیجه با این کد تغییرات را نمی تونم کپی کنم نمی دونم توانستم منظورم را بیان کنم یا نه به هر حال چه جوری میشه بدون اینکه فایل اکسل را باز کنم بتوانم اپدیتش ( رفرش ) کنم تا اون را در اکسس کپی کنم
Private Sub CopyButton_Click()
Dim ExcelFile As String
Dim AccessFile As String
Dim WorkSheet As String
Dim TableName As String
Dim DBase As Database
Dim SQL As String
ExcelFile = App.Path & "\22.xls"
AccessFile = App.Path & "\db1.mdb"
WorkSheet = "Sheet1"
TableName = "Table23"
Set DBase = OpenDatabase(ExcelFile, True, False, "Excel 5.0")
SQL = "Select * into [;database=" & AccessFile & "]." & TableName & " FROM [" & WorkSheet & "$]"
DBase.Execute SQL
MsgBox "Copy Completed To " & TableName
End Sub
دوستان من کد زیر را دارم برای کپی کردن یک فایل اکسل به اکسس منتهی من یک مشکل دارم و اون اینه که فایل اکسل من از یه فایل دیگه رفرش میشه یعنی اپدیت میشه و تا اون فایل اکسل را باز نکنم اپدیت نمیشه در نتیجه با این کد تغییرات را نمی تونم کپی کنم نمی دونم توانستم منظورم را بیان کنم یا نه به هر حال چه جوری میشه بدون اینکه فایل اکسل را باز کنم بتوانم اپدیتش ( رفرش ) کنم تا اون را در اکسس کپی کنم
Private Sub CopyButton_Click()
Dim ExcelFile As String
Dim AccessFile As String
Dim WorkSheet As String
Dim TableName As String
Dim DBase As Database
Dim SQL As String
ExcelFile = App.Path & "\22.xls"
AccessFile = App.Path & "\db1.mdb"
WorkSheet = "Sheet1"
TableName = "Table23"
Set DBase = OpenDatabase(ExcelFile, True, False, "Excel 5.0")
SQL = "Select * into [;database=" & AccessFile & "]." & TableName & " FROM [" & WorkSheet & "$]"
DBase.Execute SQL
MsgBox "Copy Completed To " & TableName
End Sub