سلام
از کدهای زیر استفاده کن!
Dim appExcel As Object
Dim myWorkbook As Object
Set appExcel = CreateObject("Excel.Application")
Set myWorkbook = appExcel.Workbooks.Open(txtFileSelect)
appExcel.Visible = True
appExcel.Range("A1") = member_codeozviat_Label.Caption
appExcel.Range("B1") = member_active_Label.Caption
appExcel.Range("C1") = member_name_Label.Caption
appExcel.Range("D1") = member_fname_Label.Caption
appExcel.Range("E1") = member_vaziatparvaneh_Label.Caption
appExcel.Range("F1") = member_nametablo_Label.Caption
appExcel.Range("G1") = member_startdate_Label.Caption
appExcel.Range("H1") = member_endate_Label.Caption
appExcel.Range("I1") = member_tozih_Label.Caption
appExcel.Range("J1") = member_father_name_Label.Caption
itime = Format(Now, "yyyymmdd-hhmmss")
myWorkbook.SaveAs FileName:=Left(txtFileSelect, Len(txtFileSelect) - 4) & " - " & itime
Set appExcel = Nothing
Set myWorkbook = Nothing
برای تست اولیه یک کمند باتن جدا بر روی فرم ایجاد کن و کدها رو در رویداد کلیک آن درج کن
ضمناً اگر نام عنوان ستونها ایندکس دار درست کنی مثل lbl1 ، lbl2 و .... میتوان بجای درج نام هر ستون در یک خط کد از حلقه next ...for استفاده کرد
فراموش نشود در این کدها فرض براین است که قبلاً شما نسبت به ارسال اطلاعات به اکسل اقدام کرده اید و فایل اکسل شما درون پوشه aa در درایو e قرار دارد .
کاری که کدهای فوق انجام میدهد اینست که فایل اکسل را از آدرس مربوطه اجرا و نام عنوان ستون ها را مطابق نام ستون های فرم تغییر و در نهایت فایل را با همان نام و زمان جاری ذخیره می کند
پاسخ با نقل قول
نوشته شده توسط Shahramdindoust
ما بتونیم هدر رو در اکسل مطابق لیبل های فرم اکسس در بیارم قضیه حله و اینکه انتخاب کنیم کدام فیلد منتقل بشه با لیبل مربوطه ...
