amiralex
یک شنبه 30 خرداد 1395, 11:07 صبح
با سلام
یک فایل اکسل دارم مانند این جدول:
کدپرسنلی
نام و نام خانوادگی
ساعت کسر کار
9653
حسین علوی
2:32
4380
محمد حسینی
0:35
2730
مژگان غلامی
00:00
5270
شهرزاد امیری
28:45
من این جدول میخوام با این کد وارد اکسس کنم و به راحتی انجام میشه و مشکلی نیست:
Dim fd As FileDialog
Dim strPath As String
Dim strSQL As String
Dim vrtSelectedItem As Variant
DoCmd.SetWarnings False
Set fd = Application.FileDialog(msoFileDialogOpen)
With fd
.ButtonName = "ÇäÊÎÇÈ"
.AllowMultiSelect = True
If .Show = -1 Then
For Each vrtSelectedItem In .SelectedItems
strPath = vrtSelectedItem
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, "Vorodi", strPath, True
Next vrtSelectedItem
End If
End With
Set fd = Nothing
مشکل اینجاست وقتی این اطلاعات وارد جدول میشه ساعت کسر کار بهم میریزه و ساعت بهمون صورتی که باید نشون داده بشه نمیشه
میخوام بگید چیکار کنم اطلاعات بهمون شکلی که دارم میبینم وارد جدول اکسس بشه.
یک فایل اکسل دارم مانند این جدول:
کدپرسنلی
نام و نام خانوادگی
ساعت کسر کار
9653
حسین علوی
2:32
4380
محمد حسینی
0:35
2730
مژگان غلامی
00:00
5270
شهرزاد امیری
28:45
من این جدول میخوام با این کد وارد اکسس کنم و به راحتی انجام میشه و مشکلی نیست:
Dim fd As FileDialog
Dim strPath As String
Dim strSQL As String
Dim vrtSelectedItem As Variant
DoCmd.SetWarnings False
Set fd = Application.FileDialog(msoFileDialogOpen)
With fd
.ButtonName = "ÇäÊÎÇÈ"
.AllowMultiSelect = True
If .Show = -1 Then
For Each vrtSelectedItem In .SelectedItems
strPath = vrtSelectedItem
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, "Vorodi", strPath, True
Next vrtSelectedItem
End If
End With
Set fd = Nothing
مشکل اینجاست وقتی این اطلاعات وارد جدول میشه ساعت کسر کار بهم میریزه و ساعت بهمون صورتی که باید نشون داده بشه نمیشه
میخوام بگید چیکار کنم اطلاعات بهمون شکلی که دارم میبینم وارد جدول اکسس بشه.