|
Публикация файла excel в htm
#39051926
Ссылка:
Ссылка на сообщение:
Ссылка с названием темы:
Ссылка на профиль пользователя:
|
Участник
Откуда: Владимирская обл
Сообщения: 4 809
|
|
Agapov_stas,
я обычно программно формирую НТМ для просмотра в броузере или печати вордом
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim r1, r1n, r1k, c1, c1n, c1k, spath, sname, kx, jc, jr, summa, kdoc, s1, s2
Dim wd As Worksheet
'''''''''''''''''
Set wd = Worksheets("Данные")
r1 = Target.Row
r1n = 3
r1k = wd.Range("a2").End(xlDown).Row
spath = Excel.ActiveWorkbook.Path & "\"
''sname = Excel.ActiveWorkbook.Name
''''''''''''''''''''
c1 = Target.Column
c1n = c1 - 3
If c1n < 3 Then c1n = 3
c1k = c1n + 7
'MsgBox "column=" & c1n
Debug.Print r1, c1, c1n, c1k
kx = FreeFile
'Open "c:\rabc\001.htm" For Output As #kx
sname = spath & "otchet_" & Format(Now, "yyyy-mm-dd-hh-mm") & ".htm"
Open sname For Output As #kx
Print #kx, "<meta http-equiv=""Content-Type"" content=""text/html; charset=windows-1251"" />"
Print #kx, "<style>"
Print #kx, "pre{font-family:courier;font-size:10pt;}"
Print #kx, "h1{font-family:'Times New Roman';font-size:14pt;text-align:center}"
Print #kx, "h2{font-family:'Times New Roman';font-size:12pt;text-align:center}"
Print #kx, "td{font-family:'Times New Roman';font-size:10pt;text-align:left}"
Print #kx, "th{font-family:'Times New Roman';font-size:7pt;text-align:center}"
Print #kx, "p.MsoNormal , li.MsoNormal, div.MsoNormal"
Print #kx, " {margin:0cm;text-align:center"
Print #kx, " margin-bottom:.0001pt;font-size:10.0pt;}"
Print #kx, "</style>"
Print #kx, "<body>"
Print #kx, "<h2>"; "Справка за период "; wd.Cells(2, c1n); " -"; wd.Cells(2, c1k); "</h2>"
Print #kx, "<table border=1 width=100% cellspacing=0 cellpadding=0.05>"
Print #kx, "<thead>"
Print #kx, "<tr>"
Print #kx, "<th>"; "№№"
Print #kx, "<th>"; wd.Cells(2, 1)
Print #kx, "<th>"; wd.Cells(2, 2)
For jc = c1n To c1k
Print #kx, "<th>"; wd.Cells(2, jc)
Next jc
Print #kx, "<th>"; "итого"
Print #kx, "</thead>"
'''''''''''''''''''''''
kdoc = 0
For jr = r1n To r1k
Print #kx, "<tr>"
summa = 0
kdoc = kdoc + 1
Print #kx, "<th>"; kdoc
Print #kx, "<th>"; wd.Cells(jr, 1)
Print #kx, "<th>"; wd.Cells(jr, 2)
For jc = c1n To c1k
s1 = Trim("" & wd.Cells(jr, jc))
If Len(s1) = 0 Then
s1 = 0
End If
Print #kx, "<td style='text-align:right'>"; IIf(s1 = 0, "-", s1)
summa = summa + s1
Next jc
Print #kx, "<th>"; summa
Next jr
Print #kx, "<table>"
Close #kx
jc = Shell("winword.exe " & sname, vbMaximizedFocus)
End Sub
|
|
|
