SABER_EDP قام بنشر ديسمبر 16, 2015 مشاركة قام بنشر ديسمبر 16, 2015 السلام عليكم كيف يمكن حذف الاسطر الثلاثة الاولى برمجيا فى الاكسل بواسطة الاكسس ولكم الشكر رابط هذا التعليق شارك More sharing options...
SABER_EDP قام بنشر ديسمبر 18, 2015 الكاتب مشاركة قام بنشر ديسمبر 18, 2015 اين عظماء الكود؟ رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر ديسمبر 18, 2015 مشاركة قام بنشر ديسمبر 18, 2015 وعليكم السلام الموضوع هذا جدا كبير ومتشعب لذلك ، ارفق لنا ما عندك وما توصلت اليه ، وعلى قدره نعمل لك التعديل ان شاء الله بما يفيدك جعفر رابط هذا التعليق شارك More sharing options...
SABER_EDP قام بنشر ديسمبر 18, 2015 الكاتب مشاركة قام بنشر ديسمبر 18, 2015 انا لا استطيع ارفاق الملف لحساسية البيانات لكن الموضوع باختصار انا احول تقارير من الاوراكل بصيغة csv ,واحولها الى صيغة xls وبعد ذلك اقوم بربطها مع قاعدة بيانات اكسس بعد حذف الاسطر الاولى 3 الثلاثة فهل من طريقة للتعامل مع ملف الاكسيل برمجيا بحذف 3 اسطر بمجرد ربط الشيت مع الاكسس او قبل ربطة بة رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر ديسمبر 18, 2015 مشاركة قام بنشر ديسمبر 18, 2015 واذا حذفنا الاسطر الثلاثة الاولى من ملف csv ، يمشي الحال؟ وهل السطر الاول يحتوي على اسماء الاعمدة ، او البيانات مباشرة؟ جعفر رابط هذا التعليق شارك More sharing options...
SABER_EDP قام بنشر ديسمبر 19, 2015 الكاتب مشاركة قام بنشر ديسمبر 19, 2015 يمشى الحال السطر الاول لا يحتوى على اسماء الاعمدة اسماء الاعمدة فى السطر 4 رابط هذا التعليق شارك More sharing options...
SABER_EDP قام بنشر ديسمبر 19, 2015 الكاتب مشاركة قام بنشر ديسمبر 19, 2015 السلام عليكم اشكر الاخ جعفر على اهتمامة المطلوب: تحويل ملف اسمة saber.csv الى ملف saber.xlsبعد حذف الاسطر الثلاثة الاولى برمجيا بواسطة الاكسس قبل استيرادة او ربطة بقاعدة البيانات السطر الاول لا يحتوى على اسماء الاعمدة اسماء الاعمدة فى السطر 4 اخوكم صابر رابط هذا التعليق شارك More sharing options...
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 رابط هذا التعليق شارك More sharing options...
SABER_EDP قام بنشر ديسمبر 20, 2015 الكاتب مشاركة قام بنشر ديسمبر 20, 2015 الاخ العزيز جعفر انت فعلا خبير جزاك الله خيرا الكود ممتاز جدا هل يمكن ان اطلب المزيد؟ رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر ديسمبر 20, 2015 مشاركة قام بنشر ديسمبر 20, 2015 حياك الله ولطلب المزيد ، رحاء اتياع قوانين المنتدى ، وعمل سؤال جديد جعفر رابط هذا التعليق شارك More sharing options...
رمهان قام بنشر ديسمبر 20, 2015 مشاركة قام بنشر ديسمبر 20, 2015 23 ساعات مضت, jjafferr said: Folder_Name = Replace(Me.txtPath, File_Name, "") 'the folder name هذا نصيبي من الكود ! رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر ديسمبر 20, 2015 مشاركة قام بنشر ديسمبر 20, 2015 1 دقيقه مضت, رمهان said: هذا نصيبي من الكود ! ماشاء الله عليك أخوي رمهان ، مو طماع جعفر 1 رابط هذا التعليق شارك More sharing options...
رمهان قام بنشر ديسمبر 20, 2015 مشاركة قام بنشر ديسمبر 20, 2015 3 دقائق مضت, jjafferr said: ماشاء الله عليك أخوي رمهان ، مو طماع جعفر شفت اخوك كيف !؟ رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر ديسمبر 20, 2015 مشاركة قام بنشر ديسمبر 20, 2015 (معدل) تم تعديل ديسمبر 20, 2015 بواسطه jjafferr رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.