html veya txt dosyası oluşturmak

[mnz]

A sütunundaki hücre içeriği .txt ismi, B stunundaki hücre içeriği de .txt içeriği olabilirmi? veya html.
Neden böyle bişey istiyorum.
A sütunumda hikaye başlıkları
B sütunumda ise Hikayenin içeriği bulunuyor.
Bunların hepsini bir klasöre html dosyalı olarak atarak web siteme koymak istiyorum.

 

[Haluk]

XL'de bir hücre sadece 1024 karakter olabilir.

Bu durumda hikayelerin biraz kısa olması gerekir.

 

[mnz]

iki hücreye sığdırdığım birkaç tane var.
http://www.excel.web.tr/viewtopic.php?t=8477
bu linkteki gibi. Çok uzun hikayeler değil.

 

[mnz]

olmuyor galiba

 

[mnz]

Düşündüm ki A sütunundaki hücre içeriklerini sayfa ismi olarak, B stunundaki hücre içeriniği de Sayfa içeriği olarak Yeni Sayfalar açarak aktarıp bu sayfaları .html olarak kaydedebilirim. Siteyi araştırdım
Aşağıdaki kod istediğimin bir kısmını yapıyor.Sayfaları açıyor ve içerikleri aktarıyor.

Sub Makro1()
Set sflis = Sheets("liste")
For x = 1 To sflis.[a65536].End(3).Row
sflis.Select
If WorksheetFunction.CountIf(Range(Cells(1, 1), Cells(x, 1)), Cells(x, 1)) = 1 Then
On Error Resume Next
Application.DisplayAlerts = False
Sheets.Add AFTER:=Sheets(Worksheets.Count)
Sheets(Worksheets.Count).Name = sflis.Cells(x, 1)
ActiveSheet.Cells(1, 1).Value = sflis.Cells(x, 2)
ActiveWorkbook.SaveAs Filename:="C:\sil\Book1.html", FileFormat:=xlText, _
CreateBackup:=False
If Err > 0 Then ActiveSheet.Delete
End If
Next
End Sub


http://www.excel.web.tr/viewtopic.php?t=7469&start=0&postdays=0&postorder=asc&highlight=yeni+sayfa

http://www.excel.web.tr/viewtopic.php?t=3923&start=0&postdays=0&postorder=asc&highlight=txt

Bir çalışma kitabına kaç tane sayfa açılabilir, bunu bilmiyorum.
Yukarıdaki linklerde bulunan kodları birleştirerek bir çözüm bulmaya çalıştım. Kod tamamen çalışmıyor tabiki hatta gereksiz yerler olduğunu düşünüyorum. Asıl büyük sorun sayfa ismine göre html uzantılı yeni sayfalar açmaması ve Açtığı ilk sayfanın ismini Book1 olarak değiştirmesi. Belki hepsinin ismini değiştirmek istiyor Ancak Book1 isimli sayfa olduğundan değiştiremiyor olabilir.
Yardımınızı rica ediyorum.

 

[mnz]

Book1 i Aktif Sayfa olarak nasıl değiştirebilirim, bari bunu söyleyin

 

[mnz]

Başka bir forumdan arkadaşlar sağolsunlar yardımcı oldular. Ben de burada sizlere de lazım olur diye yazıyorum.
saygılar

Sub Makro1()
Set sflis = Sheets("liste")
For x = 1 To sflis.[a65536].End(3).Row
sflis.Select
If WorksheetFunction.CountIf(Range(Cells(1, 1), Cells(x, 1)), Cells(x, 1)) = 1 Then
On Error Resume Next
Application.DisplayAlerts = False
Sheets.Add AFTER:=Sheets(Worksheets.Count)
Sheets(Worksheets.Count).Name = sflis.Cells(x, 1)
ActiveSheet.Cells(1, 1).Value = sflis.Cells(x, 2)
t=Sheets(worksheets.Count).Name
ActiveWorkbook.SaveAs Filename:="C:\sil\kitap" & t & ".html", FileFormat:=xlText, _
CreateBackup:=False
If Err > 0 Then ActiveSheet.Delete
End If
Next
End Sub