Vba ile txt dosyasına veri aktarma hak...

[mrc41353]

Merhabalar değerli Hocalarım ,
Ekte bulunana veri oluşturma dosyasındaki VERİ GİR sayfasında M2 hücresinden başlayarak aynı (M) sütunda bulunan son dolu değere kadar olan verileri kopyalayarak "C:\Users\mrcsb\OneDrive\Masaüstü\TEXT DOSYASI\Hareketler.txt" konumunda bulunan Hareketler isimli txt dosyasına aktaracak makro konusunda yardımlarınızı rica ediyorum.
ilginiz için şimdiden teşekkür ederim.
Saygılarımla...

 

[mrc41353]

İlginiz için teşekkürler problem çözülmüştür.

Sub ExceltoText()

'Declaring the variables
Dim FileName, sLine, Deliminator As String
Dim LastCol, LastRow, FileNumber As Integer

'Excel Location and File Name
FileName = "C:\Users\mrcsb\OneDrive\Masaüstü\GEMONT MUHASEBE\MİKROPER TÜM İŞLEMLER\MİKROPER VERİ AKTARMA\USBAktar" & "\Hareketler.txt"

'Field Separator
Deliminator = ""

'Identifying the Last Cell
LastCol = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Column
LastRow = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row
FileNumber = FreeFile

'Creating or Overwrighting a text file
Open FileName For Output As FileNumber

'Reading the data from Excel using For Loop
For i = 13 To LastRow
For j = 13 To LastCol

'Removing Deliminator if it is wrighting the last column
If j = LastCol Then
sLine = sLine & Cells(i, j).Value
Else
sLine = sLine & Cells(i, j).Value & Deliminator
End If
Next j

'Wrighting data into text file
Print #FileNumber, sLine
sLine = ""
Next i

'Closing the Text File
Close #FileNumber

'Generating message to display
MsgBox "Mikroper verisi aktarıldı..."

End Sub

 

[Haluk]

Merakımdan soruyorum; bu "OneDrive" dediğiniz klasörün içinde makrolar çalışıyor mu?

.

 

[veyselemre]

Merakımdan soruyorum; bu "OneDrive" dediğiniz klasörün içinde makrolar çalışıyor mu?

.

Bildiğim kadarıyla ;
Arkadaşın yukarıda bahsettiği onedrive konumu googledrive da olduğu gibi buluta otomatik yedekleme için kullanılıyor, yani yerel bir klasöre attığınız dosya bulutta yedekleniyor ve/veya bulut üzerinde tarayıcı ile kullanabiliyorsunuz. Buradaki excel dosyasını bilgisayarınızdaki excel uygulamasında açarsanız dosya yerelde olduğu için makroları aynen kullanabilirsiniz. Aynı dosyayı bulut üzerinde tarayıcı ile açarsanız makroları kullanamadığınız gibi menü işlemlerinin tamamı da kullanılamıyor. Google Drive da olduğu gibi otomatik yedekleme ve eşitleme için yerel onedrive uygulaması kullanılıyor.

 

[Haluk]

Anlıyorum, Google Drive'ın Microsoft versiyonu yani....

.

 

[yunus788]

Merakımdan soruyorum; bu "OneDrive" dediğiniz klasörün içinde makrolar çalışıyor mu?

.

Raidrive adlı uygulama ile gdrive onedrive vs bütün bulut hesaplarını yerel hdd gibi kullanabilirsiniz, dolayısı ile makrolarda çalışıyor.

 

[Haluk]

Başka bir uygulamaya gerek kalmadan, lokal bilgisayardaki "Google Drive" yerel sürücü gibi kullanılabiliyor ve makrolar da içinde bulunduğu Google Drive'ı gerçek bir "Drive-Sürücü" olarak görüyor;

Sub Test()
    MsgBox "Bu dosyanin bulundugu klasor:" & vbCrLf & vbCrLf & ThisWorkbook.Path
End Sub

Not: My Drive = Google Drive

.

 

[mrc41353]

sorunsuz kullanabiliyorum evet herhangi bir sıkıntı yaşamadım şuana kadar.

 

[Haluk]

@mrc41353 , bilgi için teşekkürler....

.