SABER_EDP قام بنشر ديسمبر 16, 2015 قام بنشر ديسمبر 16, 2015 السلام عليكم كيف يمكن حذف الاسطر الثلاثة الاولى برمجيا فى الاكسل بواسطة الاكسس ولكم الشكر
jjafferr قام بنشر ديسمبر 18, 2015 قام بنشر ديسمبر 18, 2015 وعليكم السلام الموضوع هذا جدا كبير ومتشعب لذلك ، ارفق لنا ما عندك وما توصلت اليه ، وعلى قدره نعمل لك التعديل ان شاء الله بما يفيدك جعفر
SABER_EDP قام بنشر ديسمبر 18, 2015 الكاتب قام بنشر ديسمبر 18, 2015 انا لا استطيع ارفاق الملف لحساسية البيانات لكن الموضوع باختصار انا احول تقارير من الاوراكل بصيغة csv ,واحولها الى صيغة xls وبعد ذلك اقوم بربطها مع قاعدة بيانات اكسس بعد حذف الاسطر الاولى 3 الثلاثة فهل من طريقة للتعامل مع ملف الاكسيل برمجيا بحذف 3 اسطر بمجرد ربط الشيت مع الاكسس او قبل ربطة بة
jjafferr قام بنشر ديسمبر 18, 2015 قام بنشر ديسمبر 18, 2015 واذا حذفنا الاسطر الثلاثة الاولى من ملف csv ، يمشي الحال؟ وهل السطر الاول يحتوي على اسماء الاعمدة ، او البيانات مباشرة؟ جعفر
SABER_EDP قام بنشر ديسمبر 19, 2015 الكاتب قام بنشر ديسمبر 19, 2015 يمشى الحال السطر الاول لا يحتوى على اسماء الاعمدة اسماء الاعمدة فى السطر 4
SABER_EDP قام بنشر ديسمبر 19, 2015 الكاتب قام بنشر ديسمبر 19, 2015 السلام عليكم اشكر الاخ جعفر على اهتمامة المطلوب: تحويل ملف اسمة saber.csv الى ملف saber.xlsبعد حذف الاسطر الثلاثة الاولى برمجيا بواسطة الاكسس قبل استيرادة او ربطة بقاعدة البيانات السطر الاول لا يحتوى على اسماء الاعمدة اسماء الاعمدة فى السطر 4 اخوكم صابر
jjafferr قام بنشر ديسمبر 19, 2015 قام بنشر ديسمبر 19, 2015 تفضل أخي صابر انت تختار الملف ، ويقوم الكود بالباقي الكود هو: Dim TextLine, File_Name, File_ext, Folder_Name, nFile_Name File_Name = Dir(Me.txtPath) 'the file name only File_ext = Mid(File_Name, InStrRev(File_Name, ".") + 1) 'the file extension Folder_Name = Replace(Me.txtPath, File_Name, "") 'the folder name 'a temp csv file to transfer to it the correct lines nFile_Name = Folder_Name & Mid(File_Name, 1, Len(File_Name) - Len(File_ext) - 1) & "_2." & File_ext 'open both Input and Output files Open Me.txtPath For Input As #1 Open nFile_Name For Output As #2 i = 0 Do While Not EOF(1) ' Loop until end of file. Line Input #1, TextLine ' Read line into variable. i = i + 1 'skip the 1st 3 lines, and write the rest If i >= 4 Then Print #2, TextLine End If Loop Close #1 Close #2 'now we have a csv file correctly saved, 'convert it to xls 'make reference to Microsoft Excel xx.x object Library Dim wBook As workbook Set wBook = Workbooks.Open(nFile_Name, Format:=6, Delimiter:=",") wBook.SaveAs Replace(Me.txtPath, ".csv", ".xls"), FileFormat:=xlExcel8 wBook.Close False 'delete the temp cvs file Kill nFile_Name جعفر 298.Remove_3_Lines_csv.mdb.zip 1
SABER_EDP قام بنشر ديسمبر 20, 2015 الكاتب قام بنشر ديسمبر 20, 2015 الاخ العزيز جعفر انت فعلا خبير جزاك الله خيرا الكود ممتاز جدا هل يمكن ان اطلب المزيد؟
jjafferr قام بنشر ديسمبر 20, 2015 قام بنشر ديسمبر 20, 2015 حياك الله ولطلب المزيد ، رحاء اتياع قوانين المنتدى ، وعمل سؤال جديد جعفر
رمهان قام بنشر ديسمبر 20, 2015 قام بنشر ديسمبر 20, 2015 23 ساعات مضت, jjafferr said: Folder_Name = Replace(Me.txtPath, File_Name, "") 'the folder name هذا نصيبي من الكود !
jjafferr قام بنشر ديسمبر 20, 2015 قام بنشر ديسمبر 20, 2015 1 دقيقه مضت, رمهان said: هذا نصيبي من الكود ! ماشاء الله عليك أخوي رمهان ، مو طماع جعفر 1
رمهان قام بنشر ديسمبر 20, 2015 قام بنشر ديسمبر 20, 2015 3 دقائق مضت, jjafferr said: ماشاء الله عليك أخوي رمهان ، مو طماع جعفر شفت اخوك كيف !؟
jjafferr قام بنشر ديسمبر 20, 2015 قام بنشر ديسمبر 20, 2015 (معدل) تم تعديل ديسمبر 20, 2015 بواسطه jjafferr
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.