Dos tabanlı bir rapor dosyasını excele dönüştürme Acil Yardım

[tomhanks]

Sevgili arkadaşlar ben eski bir dos proğramı kullanıyorum. aynısını arkadaşımda kullanıyor. Proğram dos tabanlı olduğu için usb port üstünden yazdıramıyorum. haliylede lazer yazıcıdan cıktı vermiyor. ama ben dolaylı yoldan excel yardımıyla çıktı alabiliyorum. raporu diske yazdırıp sonrada excelden veri al diyorum sonra sayfayı ayarlayıp yazdırabiliyorum. Ama arkadaşım bunu tam anlamıyla yapamıyor. Sizden istediğim yardım tam anlamıyla dosyayı alıp excelden veri al deyip sayfanın boyutlarını ayarlatan küçük bir proğram yazmanız. Zannedersem burada bu proğramı yazan arkadaşlar vardır şimdiden çok teşekkür ederim. size dosyayı ve excelde görünmesini istediğim halini atıyorum.

 

[tomhanks]

ya bir kişi cevap vermemiş. bende baya ümitlenmiştim

 

[halit3]

ben birtane denedim ancak dosyanın yerini ve adını sen belirliyeceksin


Sub Makro1()
With ActiveSheet.QueryTables.Add(Connection:="TEXT;D:\CEXTR.RPR", Destination:=Range("A1"))
.Name = "CEXTR"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = xlWindows
.TextFileStartRow = 1
.TextFileParseType = xlFixedWidth
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1)
.TextFileFixedColumnWidths = Array(2, 13, 16, 5, 32, 21, 21, 12)
.Refresh BackgroundQuery:=False
End With
Range("A1").Select
End Sub

 

[tomhanks]

teşekür ederim kardeş. emeğin için eline sağlık. ama ben bu kodları nereye yazacağım yardımcı olursan sevinirim ben biraz anlamamda.

 

[tomhanks]

buldum kardeş nereye yazacağımı ama benim senden bir istegim daha var. şimdi ordaki rapor gelmiş ama karakterleri gelmemiş. veri alırken dosya kaynağı=857:türkçe(dos) olması lazım onuda yapabilirmisin. şimdiden saol.

 

[halit3]

Sub Makro1()
With ActiveSheet.QueryTables.Add(Connection:="TEXT;D:\CEXTR.RPR", Destination:=Range("A1"))
.Name = "CEXTR_1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = xlMSDOS
.TextFileStartRow = 1
.TextFileParseType = xlFixedWidth
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1)
.TextFileFixedColumnWidths = Array(2, 13, 16, 5, 32, 21, 21, 12)
.Refresh BackgroundQuery:=False
End With
End Sub

 

[gncy82]

Sevgili arkadaşlar ben eski bir dos proğramı kullanıyorum. aynısını arkadaşımda kullanıyor. Proğram dos tabanlı olduğu için usb port üstünden yazdıramıyorum. haliylede lazer yazıcıdan cıktı vermiyor. ama ben dolaylı yoldan excel yardımıyla çıktı alabiliyorum. raporu diske yazdırıp sonrada excelden veri al diyorum sonra sayfayı ayarlayıp yazdırabiliyorum. Ama arkadaşım bunu tam anlamıyla yapamıyor. Sizden istediğim yardım tam anlamıyla dosyayı alıp excelden veri al deyip sayfanın boyutlarını ayarlatan küçük bir proğram yazmanız. Zannedersem burada bu proğramı yazan arkadaşlar vardır şimdiden çok teşekkür ederim. size dosyayı ve excelde görünmesini istediğim halini atıyorum.

ben her türlü dos programını USB Printer'a gönderiyorum.
Örnek: Xerox 3117
İşletim Sistemi: XP Prof.

1. Laser yazıcının bağlı olduğu bilgisayarda yazıcıyı paylaşıma açın. Paylaşım adı xerox olarak düşünelim

2. Başlat>Çalıştır>cmd yazın; dos ekranına düşün.

3. C:\Documents and Settings\user>cd\ yazın.

4. C:\>net use yazın

5. C:\>net use lpt1 \\user\xerox

yukarıdaki işlemi ağdaki diğer başka bilgisayara da uygulayabilirsiniz. sizin usb yazıcınızı diğerleri de kullanabilirler.

artık paylaşımda olan USB bağlantılı laser yazıcımız LPT1 olarak bağlanmış gibi çalışacaktır. Başka yöntemler için; http://www.dos2usb.com/

 

[halit3]

ekli dosyaya bir bak sen sadece bilgi alacağın dosyayı açılan pencereden bulup aç diyeceksin