“Object Çalışma Kitaplarının Çalışma Zamanı Hatası 1004 Microsoft Opentext başarısız oldu”


0

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.

Sitemizi kullandığınızda şunları okuyup anladığınızı kabul etmiş olursunuz: Çerez Politikası ve Gizlilik Politikası.
Licensed under cc by-sa 3.0 with attribution required.