Herhangi Bir Verinin Bulunduğu Hücreye gitme

[semira_]

Print #1, "$include " & ThisWorkbook.Path & "\Parameters\Parameter_" & dosyaadı
Print #1, "$include " & ThisWorkbook.Path & "\Modeller\Model.txt"
Print #1, "file outfile /" & ThisWorkbook.Path & "\Çözümler\Çözüm_" & dosyaadı & "/;"
Print #1, "$include " & ThisWorkbook.Path & "\Modeller\YazdirmaKomut.txt"

Filename = ThisWorkbook.Path & "\Çözümler\Çözüm_" & Left(dosyaadı, Len(dosyaadı) - 3) & "txt"
Dim IsOpt, Objective_Value, OBJ1, OBJ2, OBJ21, OBJ22, OBJ221, OBJ222, OBJ223, OBJ23, OBJ24, OBJ25, OBJ26, OBJ27, Lower_Bound, Number_of_Iteration, CPU_Second As Double
Open Filename For Input As 2

 

[semira_]

hata filename = den sonra hata verıyor

 

[YUSUF44]

dosyaadı nedir?

 

[semira_]

Private Sub CommandButton1_Click()
Range("a1").Activate
dosya = Dir(ThisWorkbook.Path & "\*.txt")
While Not dosya = ""
ActiveCell = dosya
ActiveCell.Offset(1, 0).Activate
dosya = Dir
Wend

i = 1
Do While Range("a" & i) <> ""
dosyaadı = Range("a" & i)
Dim oku As Double
Open ThisWorkbook.Path & "\" & dosyaadı For Input As 1

.bellı başlı parametre degerlerı tanımlanmış



Filename = ThisWorkbook.Path & "\Çözümler\Çözüm_" & Left(dosyaadı, Len(dosyaadı) - 3) & ".txt"
Dim IsOpt, Objective_Value, OBJ1, OBJ2, OBJ21, OBJ22, OBJ221, OBJ222, OBJ223, OBJ23, OBJ24, OBJ25, OBJ26, OBJ27, Lower_Bound, Number_of_Iteration, CPU_Second As Double
Open Filename For Input As 2
Sheets("Sonuçlar").Range("A1").Offset(i, 0) = dosyaadı
Sheets("Sonuçlar").Range("A1").Offset(i, 1) = nofcomp
Sheets("Sonuçlar").Range("A1").Offset(i, 2) = nofper
Sheets("Sonuçlar").Range("A1").Offset(i, 3) = diotlevelort



Yukarıdakı dongude Filename olan kısımda error 53 hatası verıyor ve file is not found hatası verıyor

 

[Orion1]

A sütununda yazan dosya adlarında sorun var gibi gözüküyor.

 

[semira_]

dogru sorun orada var ama ben nasıl çözeceğim.

A sütununda yazan dosya adlarında sorun var gibi gözüküyor.

 

[Orion1]

dogru sorun orada var ama ben nasıl çözeceğim.

A sütununa klasörde olan dosya adlarını yazdırın.

 

[semira_]

hepsını yazdırdım ancak ılk dosyayı okuyor sonrada ıkıncısınde Filename hata verıyor dosya okunmuyor

 

[YUSUF44]

A sütunundaki dosya adlarını uzantılarıyla birlikte yazar mısınız?

 

[Orion1]

Filename = ThisWorkbook.Path & "\Çözümler\Çözüm_" & Left(dosyaadı, Len(dosyaadı) - 3) & ".txt"

Yukarıdaki satırın altına bu satırı yazın ve dosyayı klasörde arayın.Nerde hata var anlayın.

msgbox Filename

 

[YUSUF44]

Sayın Orion1, hatayı zaten o satırda veriyormuş galiba, dolayısıyla sonrasına yazmak yanlış olmaz mı?

 

[semira_]

P1_3_3_5_0.2_5(1).txt
P1_3_3_5_0.2_5(2).txt
P1_3_3_5_0.2_5(3).txt
P1_3_3_5_0.2_5(4).txt

 

[Orion1]

Sayın Orion1, hatayı zaten o satırda veriyormuş galiba, dolayısıyla sonrasına yazmak yanlış olmaz mı?

O satırda hata vermiyor.Bir kaç satır aşağıda hata veriyor.

 

[Orion1]

30 numaralı mesajda söylediklerimi yapın.

 

[semira_]

ok.. tamamm

 

[YUSUF44]

Hücrelerde fazladan boşluk karakteri olabilir mi?

=UZUNLUK(A1)

formülüyle karakter sayısını alıp olması gereken karakter sayısıyla karşılaştırır mısınız?

 

[semira_]

P1_3_3_5_0.2_5(3).txt de hata verdi msg box hatayı yazdı zaten

 

[semira_]

hepsı 21 karakter sıkıntı yok burada

zaten 3. text dosyasını okuyamadı

Hücrelerde fazladan boşluk karakteri olabilir mi?

=UZUNLUK(A1)

formülüyle karakter sayısını alıp olması gereken karakter sayısıyla karşılaştırır mısınız?

 

[Orion1]

Peki klasörde o adda(P1_3_3_5_0.2_5(3).txt) bir dosya varmı?

 

[semira_]

evet var zaten o yuzden anlamıyorm nıye bu hatayı verıyor aslında okuması lazım bu klasörün içindeki txt uzantısını cunku mevcut

Peki klasörde o adda(P1_3_3_5_0.2_5(3).txt) bir dosya varmı?