VBA를 사용하여 닫힌 Excel 시트 수정

Question

한 스프레드 시트를 다른 스프레드 시트에서 열어 볼 수 있도록하려고합니다. 그런 다음 TextToColumns 기능을 사용하여 날짜 중 하나의 열 형식을 변경하고 싶습니다. 변경 사항을 저장하고 파일을 자동으로 닫아야합니다.

다음을 실행하면 데이터를 분석하도록 선택하지 않았습니다.라는 메시지가 표시됩니다. 이견있는 사람?

Sub Test() 

Dim xlApp As New Excel.Application 
Dim xlWB As Excel.Workbook 
Dim xlWS As Excel.Worksheet 

xlApp.Visible = False 

Set xlWB = xlApp.Workbooks.Open("directory of file") 

Set xlWS = xlWB.Worksheets("Sheet 1") 
xlWS.Unprotect 


    xlWS.Columns("F:F").Select 
    Selection.TextToColumns Destination:=Range("F1"), DataType:=xlDelimited, _ 
     TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _ 
     Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _ 
     :=Array(1, 4), TrailingMinusNumbers:=True 


Set xlWS = Nothing 
xlApp.DisplayAlerts = False 
xlWB.Close True 
Set xlWB = Nothing 
xlApp.Quit 
Set xlApp = Nothing 

End Sub 

Answer 1

연구의 비트가 당신에게 결과를 제공 할 뻔했지만 어쨌든 그것을 제공 할 것입니다 ...

'Since you want the Workbook to be invisible, we have to open it in a new Excel Application 
Dim xlApp As New Excel.Application 
Dim xlWB As Excel.Workbook 
Dim xlWS As Excel.Worksheet 

xlApp.Visible = False 

'Open Workbook from specified path 
Set xlWB = xlApp.Workbooks.Open("YOUR FILEPATH HERE") 

'Select Worksheet from opened Workbook 
Set xlWS = xlWB.Worksheets("YOUR WORKSHEET NAME HERE") 

'Do something 
'example 
xlWS.Name = "Asdf" 

'Cleanup 
Set xlWS = Nothing 
xlWB.Close 'True to save changes, False to discard changes 
Set xlWB = Nothing 
xlApp.Quit 
Set xlApp = Nothing 

Answer 2

이것은 당신이 시작할 수 있어야 ... 무슨

Sub Test() 

    Dim wbk As Workbook 

    'Open the workbook that is closed 
    Set wbk = Workbooks.Open("C:\OtherWorkbook.xlsx") 

    'Change the format of the first column 
    wbk.Worksheets(1).Range("A:A").NumberFormat = "0.00" 

    'Close the workbook and save changes 
    wbk.Close True 


End Sub