نمایش خروجی یا گزارش اکسل در صفحه وب

**shamsololama** · 2016/01/13

با درود فراوان
زمانی که برنامه ای در اکسل می نویسیم که از برنامه نیاز به گرفتم خروجی یا گزارش داریم معمولا این صفحه نمایش و یا نتیجه گزارش را در یک شیت از اکسل بر گزیده و جهت درج و نمایش نتیجه گزارش انتخاب میکنیم . که می توان هم زمان در پرینت پریویو نمایش داد تا آماده پرینت باشد .

اما همچنان که بار ها دیده اید خیلی از نرم افزار ها و برنامه ها وقتی برای نمایش خروجی از برنامه یا که ممکن است یک گزارش باشد یا یک صفحه هلپ برای توضیحات در مورد برنامه یا هر مطلبی دیگری که میخواهند به کاربر نمایش دهند یک صفحه وب باز شده و مطالب را در آن به کاربر نمایش میدهند که در این تاپیک این برنامه را آموزش داده و نمونه برنامه ای را در اختیار دوستان قرار میدهم که امیدوارم مورد استفاده دوستان باشد .

در این برنامه وقتی گزارشی را یا جستجویی را انجام می دهیم نتیجه کار را میخوایم در یک صفحه وب نمایش دهیم که با کدی که در ادامه خدمت شما ارئه میدم می توانید این کار را انجام دهید .

جهت جدول بندی و صفحه آرایی نیاز به آشنایی به کدهای اچ تی ام ال HTML دارید که بسیار ساده بوده در صورتی که آشنایی ندارید در مدت کوتاهی در حد جدول بندی و ساخت تیبل می توانید فرا بگیرید.

در این کد و فایل نمونه به صورتی کد نویسی شده که در صفحه اکسل به هر صورتی که اطلاعات را فیلتر کنیم همان مقدار از اطلاعات فیلتر شده را در خورجی صفحه وب نمایش خواهد داد .

کد:

کد:

Sub macro1()
 Dim objIE As Object
 Dim HTML As String
 Dim i, j, color
 Dim ax As String
 ax = "http://www.exceliran.com/wp-content/themes/excel/images/head.gif"
 '----------ساخت کد  اچ  تی ام  ال  با  حلقه---------
 HTML1 = "<HTML><TITLE>HTML Report Page</TITLE>" & _
 "<BODY><FONT COLOR = BLUE><FONT SIZE = 5>" & _
 "<CENTER><B>ÈÑÇí ÈÇÒ ˜ÑÏä  í˜  ÕÝÍå  æÈ </B>" & _
 "</FONT SIZE><P>" & _
 "<img src=" & ax & ">" & _
 "<Table border=1 ><tr><td>ÇíÌÇÏ  ÕÝÍå  æÈ ÈÇ  ãÇ˜Ñæ </td><tr></table>" & "<p>" & _
 "Shamsololama@yahoo.com<p>" & "<Table border=1 width=80%>" & _
" "
 '----------ساخت کد  اچ  تی ام  ال  با  حلقه ----------
 
 For i = 0 To 100
    If Sheet1.Cells(i + 1, 1) <> "" And Sheet1.Cells(i + 1, 1).Height > 0 Then
 
 rr = rr + 1
 
        
           For j = 1 To 11
             If rr Mod 2 = 0 Then
               color = "#c2f5bd"
             Else
               color = "#7dca76"
             End If
            
               HTML2 = HTML2 & "<td bgcolor=" & color & "><Center> " & Sheet1.Cells(i + 1, j) & "</center></td>"
           Next
           
           HTML2 = "<tr>" & HTML2 & "</tr> "
    End If
 Next
 
 HTML = HTML1 & HTML2 & "</table><p><a href=http://takoo.presianblog.ir/>ÓÇíÊ  ÔÚÑ åÇí  ãÍáí ÔãÓ ÇáÚáãÇÁ</a> </p></CENTER>" & "<p></BODY></HTML>"
 
 
 
 On Error GoTo error_handler
 Set objIE = CreateObject("InternetExplorer.Application")
 With objIE
 .Navigate "about:blank"
 Do While .Busy: DoEvents: Loop
 Do While .ReadyState <> 4: DoEvents: Loop
 .Visible = True
 .Document.Write HTML
 End With
 Set objIE = Nothing
 Exit Sub
error_handler:
 MsgBox ("Unexpected Error, I'm quitting.")
 objIE.Quit
 Set objIE = Nothing
End Sub

فایل نمونه ضمیمه می باشد .

اخطار: این یک موضوع قدیمی است
به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.