Как присвоить имя книге в excel vba

Squitty

72 / 0 / 0

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

Сообщений: 11

Метки нет (Все метки)

Доброго дня.

Помогите решить проблему.

Макрос открывает файл .csv посредством обращения к Modules.
Файл открыт, но присвоить переменной имя файла не получается.

Пробовал

1
2

Dim book as Workbook
Set book = Workbooks("имя книги.csv")

или

1
2
3

nm = ActiveWorkbook.Name
Dim book as Workbook
Set book = Workbooks(nm)

Во втором случае проблема в том, что после отработки Modules программа автоматически возращается к ранее открытым книгам без участия Modules и присваивает nm значение других книг. Хотя когда запускается debug, нужна книга активна.

При не больших знаниях vba использовал все доступные мне способы, а в сети и на форуме ответа на вопрос не нашел.

Заранее благодарен.

Добавлено через 41 минуту

Собественно код программы, чтобы было детальнее.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60

Private Sub dwlo_Click()
 
    MsgBox ("Âûáåðèòå ôàéë c áàçîé, êîòîðóþ íåîáõîäèìî ïðåîáðàçîâàòü â ëèñò îáçâîíà")
    Dim MyPath As String
    MyPath = ThisWorkbook.Path
    ChDrive MyPath
    ChDir MyPath
    
    Application.ScreenUpdating = False
    
    filetoopen = Application.GetOpenFilename("Excel files (*.xlsx), .xlsx")
    If filetoopen <> False Then Workbooks.Open filetoopen
   
    NewN = ActiveWorkbook.Name
    Dim oBz As Workbook
    Set oBz = Workbooks(NewN)
        
    mWScript.WScriptOpen
    
    Dim oLo as Workbook
    Set oLo = Workbooks("rcvfile33.csv")
 
    Dim n As Long, z As Range, r As Long, dt As Range, pBz As Worksheet, pLo As Worksheet, k As Long, lc As Range
    
    Set pBz = oBz.Sheets("Áàçà")
    Set pLo = oLo.Sheets("rcvfile33")
    Set z = oBz.Sheets("Áàçà").Columns("C:C")
    Set dt = oLo.Sheets(1).Columns(7)
    Set lc = oLo.Sheets(1).Columns(46)
    n = WorksheetFunction.Count(z)
    k = n
    oXL.Cells(1, 1) = 1
    
    If k > 0 Then
        r = 2
        While Not r = k + 2
            pLo.Cells(r, 5) = pBz.Cells(r, 1)
            pLo.Cells(r, 4) = pBz.Cells(r, 2)
            pLo.Cells(r, 1) = pBz.Cells(r, 3)
            pLo.Cells(r, 2) = pBz.Cells(r, 5)
            pLo.Cells(r, 3) = pBz.Cells(r, 6)
            pLo.Cells(r, 8) = pBz.Cells(r, 7)
            pLo.Cells(r, 10) = pBz.Cells(r, 8)
            pLo.Cells(r, 7) = pBz.Cells(r, 9)
            pLo.Cells(r, 16) = pBz.Cells(r, 13)
            pLo.Cells(r, 11) = pBz.Cells(r, 15)
            pLo.Cells(r, 13) = pBz.Cells(r, 16)
            pLo.Cells(r, 46) = 1
        r = r + 1
        Wend
    End If
    
    oBz.Close SaveChanges:=False
    dt.NumberFormat = "m/d/yyyy"
    lc.NumberFormat = "General"
   
    MsgBox "Ôîðìèðîâàíèå ëèñòà îáçâîíà çàâåðøåíî.", vbInformation, "Ïðîöåññ çàâåðøåí"
    
    Application.ScreenUpdating = True
End Sub

Файл .csv открывается путем вызова модуля mWScript.WScriptOpen

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

Option Explicit
 
Public oXL As clXL
 
Sub WScriptOpen()
    Dim sPath As String, oShell As Object
    
    On Error Resume Next
    Set oShell = CreateObject("WScript.Shell")
    If oShell Is Nothing Then MsgBox _
        "Íà êîìïüþòåðå îòñóòñòâóåò áèáëèîòåêà Windows Script Host (WindowsSystem32wshom.ocx)": Exit Sub
    
    Set oXL = Nothing    'óáèðàåì õâîñòû ïðåäûäóùèõ âûçîâîâ
    Set oXL = New clXL
    Set oXL.XLWE = Application
 
    sPath = ThisWorkbook.Path & "rcvfile33.csv"
    oShell.Run """" & sPath & """"
End Sub

1
2
3
4
5
6
7

Option Explicit
 
Public WithEvents XLWE As Application
 
Private Sub XLWE_WorkbookOpen(ByVal wb As Workbook)
    MsgBox "Øàáëîí îòêðûò"
End Sub

KoGG

5590 / 1580 / 406

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

Сообщений: 2,366

Записей в блоге: 1

Это разве все проблемы? Мне кажется и данные переносится не должны.
Проблема в том что файл csv открывается не сразу из Excel, а через WScriptOpen(), который вероятно создает еще один экземпляр Excel в памяти. Два экземпляра Excel не видят друг друга.

18 строку mWScript.WScriptOpen лучше заменить на

1

Workbooks.Open ThisWorkbook.Path & "rcvfile33.csv"

Hugo121

6875 / 2807 / 533

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

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

Я всё сделал бы иначе. Потому что csv лучше открывать так (только посмотрите какие там разделители полей — уверен что они будут постоянными, но могут быть не только «;»):

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

Sub tt()
    Dim ts As Object, arrstr, i&, x&, a
    
    Set ts = CreateObject("Scripting.FileSystemObject").OpenTextFile(ThisWorkbook.Path & "rcvfile33.csv", 1)
    arrstr = Split(ts.ReadAll, vbCrLf)    'массив строк текста целиком
    ts.Close
 
    'все данные в массиве, можно его перебрать:
    For i = 0 To UBound(arrstr)
        If Len(Trim(arrstr(i))) > 0 Then
            a = Split(arrstr(i), ";")
            For x = 0 To UBound(a)
                Debug.Print i; a(x)
            Next
        End If
    Next
    
End Sub

Добавлено через 2 минуты
Или в одну строку:

1
2

    arrstr = Split(CreateObject("Scripting.FileSystemObject").OpenTextFile(ThisWorkbook.Path & "rcvfile33.csv", 1).ReadAll, vbCrLf)    'массив строк текста целиком
    'все данные в массиве, можно его перебрать:

Добавлено через 2 минуты
И не нужно никаких modules, никаких имён переменных, никаких файлов — есть один массив данных (строк), из него и берите что нужно.

72 / 0 / 0

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

Сообщений: 11

Hugo121, так было изначально. Но VBA при открытии csv файла не разделяет структуру с учетом разделителей. Разделить и изъять не проблема, но при сохранении файла VBA разделяет уже не «;», а просто «,». Плюс структура остается в одну строку. А программа, которая использует эту базу чувствительна и такой формат не воспринимает. Поэтому возникла необходимость для такого порядка открытия файла.

Hugo121, делится однозначно все «;». Испробую, спасибо. Но мне нужно наоборот вставить в этот файл и на сохранение файла это не повлияет, как я понимаю?!

6875 / 2807 / 533

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

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

Открыли файл, взяли всё в массив, файл закрыли.
Сделали изменения в массиве.
Циклом по массиву сформировали новый файл взамен исходного.
Если файл огромный (и не лезет сразу весь в память) — тогда можно делать иначе, можно построчно его обрабатывать в другой временный файл.

Ну или можно выгрузить полученный из файла массив на лист, чтоб было наглядно, и чтоб уже существующий код не менять полностью. Заодно на лету подправить форматы — чтоб даты были датами, а всякие ID типа «000123» не теряли ведущие нули.
В примере не нашёл сохранения результата — я бы тоже сохранял в текст циклом по массиву данных листа — а то эксель тут тоже любит своевольничать… Но если и так получалось правильно — сохраняйте как сохраняли.

Добавлено через 11 секунд
Открыли файл, взяли всё в массив, файл закрыли.
Сделали изменения в массиве.
Циклом по массиву сформировали новый файл взамен исходного.
Если файл огромный (и не лезет сразу весь в память) — тогда можно делать иначе, можно построчно его обрабатывать в другой временный файл.

Ну или можно выгрузить полученный из файла массив на лист, чтоб было наглядно, и чтоб уже существующий код не менять полностью. Заодно на лету подправить форматы — чтоб даты были датами, а всякие ID типа «000123» не теряли ведущие нули.
В примере не нашёл сохранения результата — я бы тоже сохранял в текст циклом по массиву данных листа — а то эксель тут тоже любит своевольничать… Но если и так получалось правильно — сохраняйте как сохраняли.