При копировани макрос VBA вставляет не тот формат (нужны только значения)

[Ученик VBA]

Добрый день!
Нужно было чтобы у книге "1001+1002 +"  прописать макрос, который будет копирувать значения из книги "загрузить" Листа1 (весь диапазон) у рабочую книгу ("1001+1002 +"  ) на лист "accounts" значения чисел и слов. Макрос должен загружать данные, которые потом будут отображаться на листе "Ліміти кас".
Часть списала с интернета, часть сама, и получилось:

Код: (vb)

Sub Макрос1()
    Sheets("accounts").Visible = True
    Sheets("accounts").Select
    Cells.Select ClearContents
       
    Dim FilesToOpen
    Dim x As Integer

     Application.ScreenUpdating = False  'отключаем обновление экрана для скорости
     
    'вызываем диалог выбора файлов для импорта
    FilesToOpen = Application.GetOpenFilename _
      (FileFilter:="All files (*.*), *.*", _
      MultiSelect:=True, Title:="Files to Merge")
 
    If TypeName(FilesToOpen) = "Boolean" Then
        MsgBox "Не выбрано ни одного файла!"
        Exit Sub
    End If
     
    'проходим по всем выбранным файлам
    x = 1
    While x <= UBound(FilesToOpen)
        Set importWB = Workbooks.Open(Filename:=FilesToOpen(x))
        With ActiveWindow
        Sheets("Лист1").Select
        Columns("A:XFD").Copy
        End With
        ActiveWindow.Close
        ThisWorkbook.Activate
        Sheets("accounts").Select
        Range("A1").Select
        ActiveSheet.PasteSpecial Format:=False, Link:=False, _
        DisplayAsIcon:=False, NoHTMLFormatting:=False
        Sheets("accounts").Visible = False
        x = x + 1
    Wend
    Application.ScreenUpdating = True
End Sub

НО КОГДА МАКРОС ЗАГРУЖАЕТ ДАННЫЕ, то они не отображаются на листе "Ліміти кас" (догадуюсь что формат не тот загружает). Если копирую данные вручну - то все работает. Пробувала
 Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Выбивает ошибку. Помогите, если сможете. Спасибо

[Udik]

Что-то я не понял, Вы ж вставляете данные из буфера на активный лист, который в данном случае accounts. При чем тут  "Ліміти кас"?

[Ученик VBA]

Макрос загружает данные на лист "accounts". Эти данные суммируются формулами на листе "Ліміти кас". В той книге "1001+1002 +"  видно суммы на листе "Ліміти кас", потому что я данные на  лист "accounts" вручную загружала.   Если запустить Макрос, то данные подтягиваются, но не суммируются на на листе "Ліміти кас". Догадуюсь, что данные подтягиваются как текст а не числа.

Посмотрите на лист "Ліміти кас" там суммы есть (правильно).  А после загрузки макроса там нули.

[Ученик VBA]

лист "Ліміти кас"  это результат (суммы чисел) из данных на лисе "accounts".   Спасибо что решили мне помочь

[Udik]

Догадуюсь, что данные подтягиваются как текст а не числа.

Ну да, на листе "Ліміти кас" в столбцах Д и Е данные как текст, о чем недвусмысленно зеленый треугольник говорит. Чтобы данные в числа преобразовать воспользуйтесь одним из вариантов http://www.planetaexcel.ru/techniques/7/1091/

[Udik]

В файле загрузить данные в столбцах Д и Е тоже текстовые, вот макрос и копирует соответственно.
Кстати, если файл загрузить всегда с одним именем и находится в одной папке с файлом обработчиком то диалог мультивыбора не нужен.

[Ученик VBA]

Извините, диалог мультивыбора нужен, потому что не только я макросом пользоваться буду.
Попробовала как на http://www.planetaexcel.ru/techniques/7/1091/
Sheets("Лист1").Select
        Selection.NumberFormat = "General"
        Selection.Value = Selection.Value
        Columns("A:XFD").Copy

не помогло. то же самое. Скажите, а Вы не знаете почему когда вместо
ActiveSheet.PasteSpecial Format:=False, Link:=False, _ 
DisplayAsIcon:=False, NoHTMLFormatting:=False 

пишу обычное из макроредактора
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

или просто
 PasteSpecial Paste:=xlPasteValues
то пишет ошибку.

[Ученик VBA]

 Я в интернете найшла, что можно другим способом, тоисть вместо
 
Sub Procedure_1()
    Range("A1").Copy
    Range("B1").PasteSpecial Paste:=xlPasteValues
 End Sub
 

Вариант № 2:

 Sub Procedure_2()
     Range("B1").Value = Range("A1").Value
 End Sub

Но как в моем случае, если у меня нету точного названия второй книги ? (книга "загрузить" может завтра назоваться по-другому  + лежать в другом месте)

[Udik]

ету точного названия второй книги ?

Ну как нету, после выбора и открытия файла можно в переменную имя считать(имяфайла=importWB.name) или вообще переменную типа workbook использовать (importWB).

вот процедура которую можно после вставки запустить, и данные в число преобразуются

Код: (vb)

Public Sub tt()
    Dim rng1 As Range
    Dim rowLast
    With Worksheets("accounts")
        rowLast = .Cells(Rows.Count, 2).End(xlUp).Row
        Set rng1 = .Range(Cells(3, 4), Cells(rowLast, 5))
        rng1.NumberFormat = "General"
        rng1.Value = rng1.Value
    End With
End Sub

[Perfect2You]

Смысл мультивыбора?
При обработке следующего файла у Вас затираются данные предыдущего. В результате имеете только данные последнего файла.


Если хотите слить данные нескольких файлов воедино - усложнить придется.

[Ученик VBA]

Я потому макрос и пробовала написать, что книга "загрузить" кажен день меняет свое название, местонахождение и количество колонок (ну и + данные).
 
Данные из книги "загрузить"  должны копируваться на лист ""accounts". 
Нудно каждый день новые данные подгружать на лист ""accounts"  и каждый день видеть результат на листе "Ліміти кас" . Динамики не нужно.

[Ученик VBA]

мультивыбор - для выбора книги  "загрузить", которая кажен день меняет свое название, местонахождение и количество колонок (ну и + данные).   Спасибо

[Udik]

Я потому макрос и пробовала написать, что книга "загрузить" кажен день меняет свое название, местонахождение и количество колонок (ну и + данные).

Для этого обычного выбора хватит.
типа такого

Код: (vb)

fileToOpen = Application.GetOpenFilename("All Files (*.*),*.*")
    If fileToOpen = False Then Exit Sub
    Workbooks.Open (fileToOpen)
    Set w2 = ActiveWorkbook

[Ученик VBA]

Вы правы, дорогой Udik.  Можно без цыкла так проще работает. Но на рядках
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
ошибку выбивает  и не вставляет значения...  Криволапая Я. Не могу копирование одного листа на другой написать. Подскажите, что не так?

Код: (vb)

[/Sub Макрос1()
    Sheets("accounts").Visible = True
    Sheets("accounts").Select
    Cells.Select
    Selection.ClearContents
   
    fileToOpen = Application.GetOpenFilename("All Files (*.*),*.*")
    If fileToOpen = False Then Exit Sub
    Workbooks.Open (fileToOpen)
    Set w2 = ActiveWorkbook
    
    If TypeName(FilesToOpen) = "Boolean" Then
        MsgBox "Не выбрано ни одного файла!"
        Exit Sub
    End If
     
        With ActiveWindow
        Sheets("Лист1").Select
        Columns("A:XFD").Copy
        End With
        ActiveWindow.Close
        ThisWorkbook.Activate
        Sheets("accounts").Select
        Range("A1").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        Sheets("accounts").Visible = False
       
    Application.ScreenUpdating = True
End Sub]

[Дмитрий Щербаков(The_Prist)]

Уберите ActiveWindow.Close.
А вообще вместо этого

Код: (vb)

With ActiveWindow  
        Sheets("Лист1").Select  
        Columns("A:XFD").Copy  
        End With  
        ActiveWindow.Close  
        ThisWorkbook.Activate  
        Sheets("accounts").Select  
        Range("A1").Select  
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _  
        :=False, Transpose:=False  
        Sheets("accounts").Visible = False

чуть правильнее так:

Код: (vb)

        w2.Sheets("Лист1").Range("A:XFD").Copy    
        ThisWorkbook.Sheets("accounts").Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _  
        :=False, Transpose:=False  
        ThisWorkbook.Sheets("accounts").Visible = False
        w2.Close False 'закрываем книгу-источник без сохранения