Sistem windows 7 ve Excel 2013'te uzun süredir çalışan bir Excel Makro kodu çalıştırıyorum. Sistemimi Windows 10 ve Excel 2013'e yükselttim.
Şimdi kodu çalıştırırken "Çalışma Zamanı Hatası 1004 Microsoft nesne çalışma kitaplarının opentext başarısız oldu" hatası alıyorum
Dim strDestination As String
Dim strSource As String
strDestination = ActiveWorkbook.Name
fileToOpen = Application _
.GetOpenFilename("Text Files (*.txt), *.txt")
Workbooks.OpenText Filename:= _
fileToOpen _
, Origin:=1251, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 1), _
TrailingMinusNumbers:=True
strSource = ActiveWorkbook.Name
Herhangi bir yardım takdir edilecektir.