Hi to all
This macro doesn't work
Run-Time Error 438 Property or method not supported by the object
Sub Esporta_Dati()
'
' ESPORTA_DATI Macro
'
'
Dim WK1 As Workbook
Dim WK2 As Workbook
Dim sh1 As Worksheet
Dim sh2 As Worksheet
Dim xl As Object
Set WK1 = ThisWorkbook
'Set xl = CreateObject("Excel.Sheet")
Set xl = CreateObject("Excel.Application")
Set WK2 = xl.Workbooks.Open("C:\Users\HP\OneD\G\2021\The C\THE qwert.xlsm")
Set sh1 = WK1.Worksheets("aaa1")
Set sh2 = WK2.Worksheets("aaa1")
sh1.Range("Q:S").Select
sh1.Range("Q:S").Selection.EntireColumn.Hidden = False
sh2.Range("Q:S").Select
sh2.Range("Q:S").Selection.EntireColumn.Hidden = False
sh1.Range("R:R").Copy
sh2.Range("R:R").Paste
sh1.Range("R:R").Select
sh1.Range("R:R").Selection.EntireColumn.Hidden = True
sh2.Range("R:R").Select
sh2.Range("R:R").Selection.EntireColumn.Hidden = True
WK2.Save
WK2.Close
'
'
End Sub
a help?
Thanks you
xam
Bookmarks