Открытие файла макросом excel в этой же папке

0 / 0 / 0

Регистрация: 21.10.2015

Сообщений: 32

Добрый день!
Есть один файл, в котором должен быть макрос, открывающий другие файлы и вносящий в них изменения:
Файлы, которые необходимо открыть находятся в той же папке что и файл с макросом, про них точно известно что они могут иметь разные названия, но точно Excel. Единственное, файлы могут иметь расширение *.xls и *.xlsx. Изменения в открытых файлах, необходимо сделать: по всей книге, на всех листах сделать автозамену одного символа «.» на «,»
Файлы перед закрытием сохранить.
Нашел у себя отрывок старого кода, но он не подходит…

Добавлено через 30 минут
Забыл добавить, в файле с макросом, необходимо подведение итогов по нескольким ячейкам из тех файлов, что открываются
Добавил пример

6875 / 2807 / 533

Регистрация: 19.10.2012

Сообщений: 8,562

— зачем? У меня смутные подозрения что незачем…

akaDemik_ua

0 / 0 / 0

Регистрация: 21.10.2015

Сообщений: 32

при подведении итогов, данные ячейки не считают числом, будет 0 вместо необходимой суммы

Добавлено через 17 часов 54 минуты
Нашел 2 примера, но не знаю как их совместить…
Вариант1.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

Sub BooksOpen()
Dim srcBook
Set wb = ThisWorkbook
 
' Открываем
Dim oFileSystemObject As Object: Set oFileSystemObject = CreateObject("Scripting.FileSystemObject")
If oFileSystemObject.FileExists(wb.Path & "*.xls") Then
Set srcBook = Workbooks.Open(Filename:=wb.Path & "*.xls", ReadOnly:=False, UpdateLinks:=0)
' Меняем точку на запятую
                    Cells.Replace ".", ".", xlPart
                    Cells.Replace ",", ".", xlPart
    srcBook.Close SaveChanges:=True
End If
 
If oFileSystemObject.FileExists(wb.Path & "test1.xlsx") Then
Set srcBook = Workbooks.Open(Filename:=wb.Path & "test1.xlsx", ReadOnly:=False, UpdateLinks:=0)
                    Cells.Replace ".", ".", xlPart
                    Cells.Replace ",", ".", xlPart
    srcBook.Close SaveChanges:=True
End If
End Sub

тут удобно что не надо указывать полный путь к папке, открываться должны все файлы из той папки, где находится файл с макросом, но проблема в том, что *.xlsx не воспринимается системой (файл не открывается)
Вариант 2.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

Sub BooksOpen2()
    Dim MyName As String
    Dim MyPath As String
    Dim sPath As String
    Dim srcBook
        MyPath = "C:VBA"
        MyName = Dir(MyPath & "*.xlsx")
         Do While MyName <> ""
            sPath = MyPath + MyName
            Excel.Application.Workbooks.Open sPath
            MyName = Dir
                    Cells.Replace ".", ".", xlPart
                    Cells.Replace ",", ".", xlPart
         Loop
End Sub

тут удобно что открываются все файлы из той папки, где находится файл с макросом, но проблема в том, что необходимо указывать полный путь и то, что файл не закрывается с сохранением

ЮляБ

1 / 1 / 0

Регистрация: 04.07.2019

Сообщений: 38

Доброе утро! Необходима ваша помощь.
Мне нужно написать макрос, который открывает папку и уже из нее открывает поочерёдно файлы.
Вот что я написала:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

Sub CollectAll()
Dim sFolder As String
With Aplication.FileDialog(msoFileDialogFolderPicker)
       .InitialFileName = "путь"
       sFolder = .SelectedItems(1)
       iTempFileName = Dir(sFolder & "*")
End With
Set BazaWb = ThisWorkbook
t=3
Do While iTempFileName <> ""
     Set BazaSht = BazaWb.Sheets("Лист1")
     BazaSht.Cells(t,1) = iTempFileName
     t = t + 1
     iTempFileName = Dir
Loop
End Sub

Этот код открывает папку, позволяет выбрать в ней любую другую папку и записывает названия всех файлов на лист. Но мне необходимо, чтобы захода в общую папку и выбора интересующей меня папки, поочерёдно открывались файлы, лежащие в ней.
Когда добавляю With .Workbooks. Open _ ругается на Workbook
Подскажите, что делаю не так и как правильно?

Daller

21 / 12 / 10

Регистрация: 12.07.2019

Сообщений: 47

где пример?

Добавлено через 59 минут
akaDemik_ua,

1
2
3
4
5
6
7
8
9
10
11
12
13
14

Sub open_files()
Dim fldr As String, d As String, Current As Worksheet
fldr = ActiveWorkbook.Path & ""
a = ActiveWorkbook.Name
d = Dir(fldr & "*")
    Do While d <> "" And d <> a
        Workbooks.Open Filename:=fldr & d
        For Each Current In Worksheets
            Current.Cells.Replace ".", ","
        Next Current
        ActiveWorkbook.Close True
    d = Dir
    Loop
End Sub

А для суммирования нужны примеры Ваши

6875 / 2807 / 533

Регистрация: 19.10.2012

Сообщений: 8,562