Get Open File and Text to Columns Issue

rex759

Well-known Member
Joined
Nov 8, 2004
Messages
538
Hello,

I used a version of the macro below to open a “Text” like file and format it Text To Columns. I thought I could use the same kind of code with some minor changes to format a .WRI file but It fails at the text to column portion. It looks like there is nothing on the clipboard to paste. When I record a macro, it works fine. Maybe I have been looking at it too long but the solution is not coming to me. Any help is appreciated.

Macro Recorder

VBA Code:
Workbooks.OpenText Filename:= _
"https://onedrive.company.com/personal/John_Smith_company_com/Documents/Desktop/207/BR207.WRI" _
        , Origin:=437, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array( _
        Array(0, 1), Array(12, 2), Array(20, 1), Array(28, 2), Array(48, 2), Array(92, 1), Array( _
        123, 1), Array(126, 1), Array(149, 1), Array(160, 1), Array(172, 1), Array(182, 1), Array( _
        203, 1), Array(214, 1)), TrailingMinusNumbers:=True

Version 1
Code:
Sub Pullfile()

  Application.ScreenUpdating = False
    Application.DisplayAlerts = False

'Select a file
sourcebk = Application.GetOpenFilename

If sourcebk = False Then
        ' They pressed Cancel
        MsgBox "Stopping because you did not select a file"
      Application.StatusBar = "Done"
 Exit Sub
    
    Else

'Save to desktop
Dim Path As String

Path = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\"
ActiveWorkbook.SaveAs Path & "Text File.xlsx"

tempfile = ActiveWorkbook.Name

   Set sourcebk2 = Workbooks.Open(sourcebk)
        sourcebk2.Worksheets(1).UsedRange.Copy
        Workbooks(tempfile).Worksheets("Sheet1").Range("A1").PasteSpecial Paste:=xlPasteValues
        sourcebk2.Close False
    End If
 
 Application.CutCopyMode = False

'Text to columns, define range
 Set Rng = [A1]
    Set Rng = Range(Rng, Cells(Rows.Count, Rng.Column).End(xlUp))
      
        Rng.TextToColumns Destination:=Rng, DataType:=xlFixedWidth, OtherChar:="|", _
        FieldInfo:=Array(Array(0, 1), Array(12, 2), Array(20, 1), Array(28, 2), Array(48, 3), _
        Array(92, 1), Array(123, 1), Array(126, 1), Array(149, 1), Array(160, 1), Array(172, 1), _
        Array(182, 1), Array(203, 1), Array(213, 1)), TrailingMinusNumbers:=True

End Sub
 

Excel Facts

Do you hate GETPIVOTDATA?
Prevent GETPIVOTDATA. Select inside a PivotTable. In the Analyze tab of the ribbon, open the dropown next to Options and turn it off

Marc L

Well-known Member
Joined
Apr 5, 2021
Messages
1,234
Office Version
  1. 2010
Platform
  1. Windows
Hi,​
without the source file neither a complete elaboration it's just a thread for some mind readers forum ! …​
 

smozgur

BatCoder
Joined
Feb 28, 2002
Messages
1,537
Glad to hear it has been resolved.

Please post your solution. Then it is perfectly fine to mark your post as the solution to help future readers.
 

rex759

Well-known Member
Joined
Nov 8, 2004
Messages
538
The issue was the sync and One Drive. I applied these two lines of code, one at the beginning and at the end.

Turn Off One Drive
VBA Code:
Call Shell("cmd.exe /S /C" & "%LOCALAPPDATA%\Microsoft\OneDrive\OneDrive.exe /shutdown")

Turn On One Drive
Code:
call Shell("cmd.exe /S /C" & "start %LOCALAPPDATA%\Microsoft\OneDrive\OneDrive.exe /background")
 
Solution

Forum statistics

Threads
1,140,929
Messages
5,703,225
Members
421,285
Latest member
Bebek

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top