11111

Sub 儃僞儞5_Click()

    Dim filter As String

    Dim fileToOpen As Variant

    Dim rowCount As Integer

   

    filter = "All Files(*.*),*.*,Word Documents(*.do*),*.do*," & _

            "Text Files(*.txt),*.txt,Excel Files(*.xl*), * .xl * "

    fileToOpen = Application.GetOpenFilename(filter, 4, "select File")

   

    If fileToOpen <> False Then

        Workbooks.Open fileToOpen

        

        'Sheets.Add after:=Sheets(Sheets.Count)

        'Sheets(Sheets.Count).Name = "New01"

        'Sheets(Sheets.Count).Select

        'With Rows("1:1").Interior

            '.Color = 65535

        'End With

        'Range("A2:C2").Merge

        

        'ActiveWorkbook.Save

        Sheets("TEST").Select

        rowCount = ActiveSheet.[B65536].End(xlUp).Row

        For i = 1 To rowCount

            If Cells(i, 1) = 1 Then

                

            End If

        Next

        

        ActiveWorkbook.SaveAs "test"

    End If

End Sub