Snasui Excel Forum

Code: Select all

Public Sub opencsfile_1()

Dim q As Variant
Dim filename_1 As Variant
Dim Wordapp As Variant

Workbooks("ClientSegregation_Macro.xlsm").Worksheets(2).Select
Range("a1").Activate

For q = 3 To 6
Set Wordapp = CreateObject("word.Application")
filename_1 = Workbooks("ClientSegregation_Macro.xlsm").Worksheets("Path").Cells(q, 7)

    Wordapp.documents.Open filename_1
    Wordapp.Visible = True
    
    Wordapp.activedocument.Range.Copy
    Workbooks("ClientSegregation_Macro.xlsm").Worksheets(q - 1).Select
    Sheets(q - 1).Range("A1").Activate
    Sheets(q - 1).Range("A1").PasteSpecial xlPasteValues  'ERROR บรรทัดนี้ค่ะ

   Wordapp.activedocument.Close
   Wordapp.Quit
    Set Wordapp = Nothing

Next q


End Sub