Денис С (Все сообщения пользователя)

Создание циклического макроса по условию, Копирование макросом из умной таблицы

Денис С Пользователь Сообщений: 13 Регистрация: 12.04.2023	# 15.05.2024 19:47:05 Большое спасибо, но он что то не то делает, он переносит все и видимые и невидимые... Изменено: Денис С - 15.05.2024 19:49:10
	Перейти

Создание циклического макроса по условию, Копирование макросом из умной таблицы

Денис С

Пользователь

Сообщений: 13 Регистрация: 12.04.2023

14.05.2024 16:47:37

Добрый день. Помогите сделать макрос. Есть умная таблица. В ней есть скрытые строки и видимые. Надо что бы макрос по очереди, по одной ячейке переносил значения из первого столбца таблицы(только видимые ячейки) в одну ячейку на другом листе.

Перейти

Прописать путь к каталогу где лежат файлы

Денис С Пользователь Сообщений: 13 Регистрация: 12.04.2023	# 23.10.2023 15:24:16 все равно ничего не получилось...
	Перейти

Прописать путь к каталогу где лежат файлы

Денис С Пользователь Сообщений: 13 Регистрация: 12.04.2023	# 23.10.2023 14:24:44 оформил
	Перейти

Прописать путь к каталогу где лежат файлы

Денис С

Пользователь

Сообщений: 13 Регистрация: 12.04.2023

23.10.2023 13:50:08

Добрый день. Сделал макрос, который открывает вначале .xml, копирует данные, потом .csv , копирует данные. Но в нем прописано жестко название файла, а мне надо прописать папку где лежат куча файлов, а файл уже брать вручную какой нужен, подскажите пожалуйста как можно поправить код?

Код

Sub Копирование()

    Sheets("Загр ф").Select
    Range("АрмКУ").Select
    Selection.ClearContents

    Dim wb As Workbook
    Set wb = Application.Workbooks.OpenXML("C:\*.xml", , LoadOption:=xlXmlLoadImportToList)
    Range("Таблица1").Select
    Selection.Copy
    Windows("Книга1.xlsm").Activate
    Sheets("Загр ф").Activate
    Range("A2").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Application.DisplayAlerts = False
    wb.Close False
    


    Sheets("Загр оп").Select
    Range("СБР").Select
    Selection.ClearContents
    With Workbooks.Open(Filename:="C:\ГТП(потребление) Сессия(24) от 19.10.2023.csv", Local:=True)
    End With
    Range("A2:W1000").Select
    Selection.Copy
    ActiveWindow.Close False
    Windows("Книга1.xlsm").Activate
    Sheets("Загр оп").Activate
    Range("A2").Select
    ActiveSheet.Paste
    ActiveWorkbook.Save
    
    
    
End Sub

Изменено: Денис С - 23.10.2023 14:24:04

Перейти