Refresh backgroundquery false как исправить

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
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146

Sub formir_balance()
  Application.ScreenUpdating = False
  Dim i, r, j
  
'GoTo test
  
    Sheets("import").QueryTables(1).Refresh BackgroundQuery:=False      \Вот здесь выдает ошибку
    Sheets("obrab").Range("L11:V65536").FillDown
    Sheets("svod_tab").PivotTables("СводнаяТаблица1").PivotCache.Refresh
    
    Sheets("Лист1").Select
    Cells.Select
    Selection.Delete Shift:=xlUp
    
    Sheets("Лист1").Select
    Range("A1").Select
    With ActiveSheet.QueryTables.Add(Connection:="TEXT;\MAR-ckanalitikрисканалитикаIMPORT_Для баланса mas_verTest.txt", _
        Destination:=Range("A1"))
        .Name = "Test_1"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 1251
        .TextFileStartRow = 1
        .TextFileParseType = xlFixedWidth
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1)
        .TextFileFixedColumnWidths = Array(33, 23, 14, 16, 17, 19, 15, 15, 8, 10)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
    Columns("A:A").ColumnWidth = 18.43
    Columns("A:A").ColumnWidth = 22
    
    
     Sheets("Лист1").Select
    Range("D4:F4").Select
    Selection.Copy
    Sheets("bal_n").Select
    Range("AL1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    With Selection.Font
        .Name = "Times New Roman"
        .Size = 11
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    Selection.Font.Bold = True
    Columns("AM:AM").EntireColumn.AutoFit
  
  
  
  'удаление старых данных
     Sheets("Изм счета").Select
    Range("C3:H300").Select
    Selection.ClearContents
    
    'Sheets("Лист1").Select
    'Cells.Select
    'Selection.Delete Shift:=xlUp
 '   Sheets("bal_n").Select
    
    
' удаление пустых строк
 '   LastRow = ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count
 ' Application.ScreenUpdating = False
  'For r = LastRow To 1 Step -1
 ' If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete
'  Next r
  
  
'     i = 2
'    j = 2
 
'   форматируем колонку Z - формат Общий
'   ThisWorkbook.Sheets("Лист1").Columns("Z:Z").NumberFormat = "General"
    
'    While ThisWorkbook.Sheets("Лист1").Cells(i, 2) <> ""
        'заполнение колонки Z кодом
        'ThisWorkbook.Sheets("Лист1").Cells(i, 26) = "=RC[-24]&RC[-19]"
        
'    While Range("B10:K7000").Select
'    Selection.Range ("B9:B7000")
'    Range("B9:B7000").Select
'test:
    For j = 3 To ThisWorkbook.Sheets("Изм счета").UsedRange.Rows.Count
        'If ThisWorkbook.Sheets("Изм счета").Cells(j, 2) <> "" Then
            For i = 10 To ThisWorkbook.Sheets("Лист1").UsedRange.Rows.Count
                If ThisWorkbook.Sheets("Лист1").Cells(i, 2) = ThisWorkbook.Sheets("Изм счета").Cells(j, 2) Then
                'присваиваем новое значение кода на листе "Лист1"
                    ThisWorkbook.Sheets("Изм счета").Cells(j, 3) = ThisWorkbook.Sheets("Лист1").Cells(i, 3)
                    ThisWorkbook.Sheets("Изм счета").Cells(j, 4) = ThisWorkbook.Sheets("Лист1").Cells(i, 4)
                    ThisWorkbook.Sheets("Изм счета").Cells(j, 5) = ThisWorkbook.Sheets("Лист1").Cells(i, 5)
                    ThisWorkbook.Sheets("Изм счета").Cells(j, 6) = ThisWorkbook.Sheets("Лист1").Cells(i, 6)
                    ThisWorkbook.Sheets("Изм счета").Cells(j, 7) = ThisWorkbook.Sheets("Лист1").Cells(i, 7)
                    ThisWorkbook.Sheets("Изм счета").Cells(j, 8) = ThisWorkbook.Sheets("Лист1").Cells(i, 8)
'               ThisWorkbook.Sheets("Лист1").Cells(i, 6) = ThisWorkbook.Sheets("Изм данные").Cells(j, 5)
                'Range("i,3:i,8").Select
                'Selection.Copy
                'Sheets("Изм счета").Select
                'Range("j,3:j,8").Select
                'ActiveSheet.Paste
                    Exit For
                End If
            Next
       ' End If
    Next
'        i = i + 1
'    Wend
    Sheets("Изм счета").Select
    Columns("C:H").Select
    Range("C2").Activate
    Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
        Range("J1").Select
    Selection.Copy
    Sheets("Изм счета").Select
    Range("C3:H300").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlMultiply, _
    SkipBlanks:=False, Transpose:=False
    Sheets("bal_n").Select
    MsgBox ("  Отчет сформирован!")
    
      
    
End Sub