بله كاربرا امكان آپلود فايل هاي xlsm رو ندارند
شما كدهاتون رو اصلاح نكردين هنوز. خطايي كه ميده به تغيير نام ربط نداره. كدهايي كه خدمتتون ارسال ميكنم رو جايگزين كدهاي خودتون بفرماييد
کد:Sub Export() Dim ws As Worksheet Dim strPath As String Dim myFile As Variant Dim strFile As String On Error GoTo errHandler Set ws = Sheet2 Sheet2.Visible = xlSheetVisible strFile = Replace(Replace(ws.Name, " ", ""), ".", "_") _ & "_" _ & Format(Now(), "yyyymmdd\_hhmm") _ & ".pdf" strFile = ThisWorkbook.Path & "\" & strFile myFile = Application.GetSaveAsFilename _ (InitialFileName:=strFile, _ FileFilter:="PDF Files (*.pdf), *.pdf", _ Title:="ãÓíÑ æ äÇã ÝÇíá ÑÇ ÌåÊ ÐÎíÑå ÓÇÒí ãÔÎÕ äãÇÆíÏ") If myFile <> "False" Then ws.ExportAsFixedFormat _ Type:=xlTypePDF, _ Filename:=myFile, _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=False MsgBox ".ÝÇíá ÈÇ ãæÝÞíÊ ÇíÌÇÏ ÑÏíÏ" End If Sheet2.Visible = xlSheetHidden exitHandler: Exit Sub errHandler: MsgBox "ÎØÇ ÏÑ ÇíÌÇÏ ÝÇíá" Resume exitHandler End Sub
براي راحتي كار بريزيد داخل يك متغير و هرجا خواستيد استفاده كنيد. مثلا اينطوري:
کد:msg= chr(227)&chr(211)&chr(237)&chr(209)&chr(32)&chr(230)&chr(32)&chr(228)&chr(199)&chr(227)&chr(32)&chr(221)&chr(199)&chr(237)&chr(225)&chr(32)&chr(209)&chr(199)&chr(32)&chr(32)&chr(204)&chr(229)&chr(202)&chr(32)&chr(32)&chr(208)&chr(206)&chr(237)&chr(209)&chr(229)&chr(32)&chr(32)&chr(211)&chr(199)&chr(210)&chr(237)&chr(32)&chr(227)&chr(212)&chr(206)&chr(213)&chr(32)&chr(228)&chr(227)&chr(199)&chr(237)&chr(237)&chr(207)&chr(46)&chr(32) MsgBox msg
در حال حاضر 2 کاربر در حال مشاهده این موضوع است. (0 کاربران و 2 مهمان ها)
علاقه مندی ها (Bookmarks)