منزل
Top.Mail.Ru Yandeks.Metrika
المنتدى: "Main";
الأرشيف الحالي: 2002.01.08;
تنزيل: [xml.tar.bz2];

إلى

نقل البيانات إلى خلية ورقة عمل Excel البحث عن فروع مماثلة


Striker   (2001-12-13 07:59) [0]

من فضلك قل لي كيف تكتب بعض المتغيرات من السلسلة أو النوع الحقيقي إلى الخلية المحددة من ورقة EXCEL. (أود مع مثال). شكرا لك على ذلك في وقت سابق.



perov   (2001-12-13 08:21) [1]

ExcelApplication.Connect. ExcelApplication.Workbooks.Add (""، 0)؛ ExcelWorkbook.ConnectTo (ExcelApplication.ActiveWorkbook)؛ ExcelWorksheet.ConnectTo (ExcelWorkbook.Sheets [1] as _WorkSheet)؛ ExcelWorksheet.Activate. ExcelWorksheet.Cells.Item [j، 1] .Value: = j - i؛ ExcelApplication.Visible [0]: = صواب ؛



KIR   (2001-12-13 08:32) [2]

إليك سؤال اللحاق بالركب ، ولكن كيف يمكن إغلاق XL بشكل صحيح؟ ثم لدي عملية نقل مرة واحدة (على الرغم من أن من Excel "I) يعمل ، وإذا حاولت مرة أخرى ، ثم - خطأ تخصيص الذاكرة ...



perov   (2001-12-13 08:44) [3]

ExcelApplication.Disconnect.



Striker   (2001-12-13 09:00) [4]

شكرا جزيلا سأحاول في المنزل.



KIR   (2001-12-13 12:02) [5]

> بيروف
كتب بالفعل
و ExcelApplication.Disconnect ،
و ExcelApplication.Quit ،
و FreeAndNil (ExcelApplication) ...
لا يساعد ، إليك جزء من الكود:

ExcelApplication1.Connect.
ExcelApplication1.WorkBooks.Add (n، 0)؛ // ن - اسم الملف
ExcelWorkBook1.ConnectTo (ExcelApplication1.ActiveWorkBook)؛

{هيئة البرنامج}

ExcelApplication.WorkBook1.Close.
ExcelApplication1.Disconnect.



perov   (2001-12-13 12:33) [6]

ExcelWorksheet.Disconnect. ExcelWorkbook.Close. ExcelApplication.Disconnect.



Олег Лаукарт   (2001-12-13 13:33) [7]

هناك بضعة مقالات حول العمل مع Excel في مملكة دلفي



Ынс   (2001-12-13 14:32) [8]

/ / أضف هذه الوحدة إلى الوحدات
يستخدم ComObj ؛
// ...
فار
xlApp: البديل ؛
DataArray: متغير ؛ // صفيف ثنائي الأبعاد سيكون هنا
رف: حقيقي ؛
بدأ
rv: = 10.56568؛
xlApp: = CreateOleObject ("Excel.Sheet") ؛ / / خلق
xlApp.Application.Visible: = True؛

xlApp.Application.Cells [1، 2] .Value: = "23456346"؛ // لذلك

xlApp.Application.Range ["RealValue1"]. Value: = rv؛ {يمكنك القيام بذلك: "RealValue1" - اسم الخلية في "الخلايا"}

xlApp.Application.Range ("A1: B8"). القيمة: = "مجرد سلسلة لملء النطاق"؛ {املأ النطاق بسطر واحد}


DataArray: = VarArrayCreate ([0,2,0,2] ، varVariant) ؛ {إنشاء مجموعة من خيار الكتابة لتخزين أي قيم}
DataArray [0، 0]: = "array array"؛
DataArray [1، 0]: = 38754؛ // أيضًا عنصر صفيف

{عيّن الصفيف بأكمله إلى الرابط في آنٍ واحد ... بثمن بخس وموثوقية وعملي = =) = خاصةً عندما تحتاج إلى إرسال مجموعة من الآلاف من سطور 5 إلى التقرير ... إذا قمت بذلك من خلال حلقة مستمرة ، فسيتم إنشاء التقرير بشكل مميت}

xlApp.Application.Range ("A1: C3): = DataArray؛

// احفظ هذا الملف للأجيال القادمة = -)
xlApp.SaveAs ("c: \ docs \ reports \ sample1.xls")؛

DataArray: = غير معين ؛ // مسارات الاجتياح
xlApp: = غير مخصص ؛ // الانفجار وهذا ...
الغاية؛



Striker   (2001-12-15 11:06) [9]

لقد بحثت هنا ووجدت موقعًا على الويب (WWW.afalinasoft.com) ، ويعود السبب في ذلك بالتحديد إلى تفاعل Delphi & Excel.



صفحات: 1 فرع كامل

المنتدى: "Main";
الأرشيف الحالي: 2002.01.08;
تنزيل: [xml.tar.bz2];

الطابق العلوي





الذاكرة: 0.57 ميغابايت
الوقت: 0.025 ج
3-21996
vinni2000
2001-12-06 11:47
2002.01.08
كيفية اختيار البيانات من الاستعلام باستخدام استعلام


7-22424
نيك
2001-09-21 14:30
2002.01.08
عند تثبيت Pro ، فإنك تعطي أخطاء على محرك الأقراص C


3-21924
أندرو
2001-12-04 14:37
2002.01.08
DbLookUpComboBox


1-22002
بفغ
2001-12-16 16:24
2002.01.08
الرسوم البيانية


14-22403
Burmistroff
2001-11-11 20:13
2002.01.08
سوبر دلفي المرجعية -2. رايك من فضلك





الأفريكانية الألبانية عربي الأرميني أذربيجان الباسكي البيلاروسية Bulgarian التشيكية الصينية المبسطة) تقاليد صينية) الكرواتية التشيكية دانماركي Dutch English الإستونية الفلبينية Finnish جيب
الجاليكية الجورجية الألمانيّة اليونانيّة الكريولية الهايتية اللغة العبرية الهندية الهنغارية أيسلندي Indonesian الأيرلندية Italian اليابانيّة الكوريّة اللاتفية اللتوانية المقدونية الملايو المالطية Norwegian
اللغة الفارسية بولنديّة البرتغاليّة رومانية Russian صربي السلوفاكيّة سلوفيني إسباني السواحيلي Swedish Thai التركية الأوكراني الأردية الفيتنامية ويلزي اليديشية البنغالي البوسنية
السيبيونو الاسبرانتو الغوجاراتية الهوسا همونغ الإيبو جاوي الكانادا الخمير لاو لاتينية الماوري المهاراتية المنغولية النيبالية البنجابية الصومالية التاميل التيلجو اليوروبا
زولو
Английский Французский ألماني Итальянский البرتغالية Русский Испанский