|
🖤 پیام تسلیتبا نهایت تأسف و تأثر، باخبر شدیم جناب آقای محمد محمدی با نام کاربری smartman ، از مدیران ارزشمند انجمن اکسل ایران، دار فانی را وداع گفتهاند. ایشان سالها با دانش، تجربه، اخلاق نیکو و روحیه کمک به دیگران، سهم بزرگی در رشد و پویایی انجمن داشتند و خاطره حضور ارزشمندشان همواره در ذهن اعضای انجمن باقی خواهد ماند. مدیریت و اعضای انجمن ExcelIran این ضایعه را به خانواده محترم ایشان، دوستان و تمامی اعضای انجمن تسلیت عرض نموده و از خداوند متعال برای آن مرحوم، رحمت و مغفرت الهی و برای بازماندگان صبر و شکیبایی مسئلت دارند.
انا لله و انا الیه راجعون
|
Sub ConvertDataToHtml()
Dim FileName As String, lineText As String
Dim myrng As Range
Dim i, LR As Long
LR = Cells(Rows.Count, 4).End(xlUp).Row
For i = 2 To LR
FileName = ThisWorkbook.path & "\" & Range("A" & i).Value
Set myrng = Range("D" & i & ":D" & i)
Open FileName For Output As #1
lineText = "<html><meta charset=""UTF-8""><meta name=""description"" content=""Excel into HTML"">"
lineText = lineText & "<meta name=""keywords"" content=""HTML, excel"">"
lineText = lineText & "<meta name=""author"" content=""kingofcamden"">"
lineText = lineText & "<title>" & Range("A" & i).Value & "</title><body>"
Print #1, lineText
For Each cell In myrng
Print #1, cell
Next cell
Print #1, "</body></html>"
Close #1
Next i
End Sub
LR = Cells(Rows.Count, 1).End(xlUp).Row
کامنت