Pergunta : Combinar folhas dos manuais de instruções diferentes em um manual de instruções using VB.Net

Olá! peritos.  Im que esforçam-se com um número de problemas com Excel 2007 e VB2008/3.5.  Principal é que eu preciso de começ as folhas de três manuais de instruções diferentes, rebatizadas e combinadas então em um manual de instruções separado.  Esta é a folha inteira, não varia de uma folha.  Qualquer um tem uma idéia para este?  Muitos agradecimentos adiantado class= do

Resposta : Combinar folhas dos manuais de instruções diferentes em um manual de instruções using VB.Net

Eu uni algum código que terminará a tarefa.  Deixar-me saber isto trabalha.  O código funciona examinando uma lista de trajetos da lima que você fornece em uma escala das pilhas.  Este trajeto deve começar com a posição da movimentação e ir toda a maneira para baixo ao nome de arquivo com seu extention.

Exemplo:

C:\Users\Matthew Sheskey \ Desktop \ ExcelImport.xlsx

Você pode fornecer o tanto como porque você gostaria.  A única limitação aqui é Excel pode somente segurar as folhas 250ish.

Você mencionou as folhas que você tem somente ter uma folha.  Eu estruturei o código para tomar todas as folhas no manual de instruções apenas no caso que você quer adicionar mais/toma mais folhas mais tarde.  Isto está mudado facilmente para tomar somente 1 folha se aquela é a funcionalidade desejada.

O código cola valores agora.  Deixar-me saber se você me quer mudar o código para colar tudo compreendendo o formato.

Os manuais de instruções devem ser fechados quando você funciona este macro.  Eu estou trabalhando em algumas mudanças agora para verific se sejam já abertos e de lá fechem somente esses que não estavam já abertos.  Eu igualmente estou trabalhando em algum código para tomar os nomes de arquivo e os nomes da folha e para combiná-los em nomear a folha no manual de instruções novo.  Isto não pode trabalhar porque os nomes da folha são tampados em 32 caráteres.  Eu pensei que esta funcionalidade era necessário após o teste.  Eu encontrei que o manual de instruções consolidado teve ou assim que as folhas uma dúzia e foi duro se manter a par d.  Deixar-me saber se você não quer este.

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:

Sub getSheetsFromBooks ()

Escurecer a lima, nomes de arquivo como escala da escala 'de nomes da lima
Escurecer WS, newWS, currentWorksheet como a folha
Escurecer o assemblyWorkbook, dataWorkbook como o manual de instruções
O dataWorkbookName não ofuscante como a corda 'usará este para nomear as folhas na WB nova
screenUpdate não ofuscante, displayAlerts como bôoleanos

Ajustar nomes de arquivo = Application.Selection
Ajustar o assemblyWorkbook = o Application.ActiveWorkbook
Ajustar o currentWorksheet = o Application.ActiveSheet

screenUpdate = Application.ScreenUpdating
Application.ScreenUpdating = falso

displayAlerts = Application.displayAlerts
Application.displayAlerts = falso

'dar laços para iterar sobre nomes da lima
Para cada lima nos nomes de arquivo
    
    Ajustar o dataWorkbook = o Workbooks.Open (lima. Valor)
    dataWorkbook.Activate
    
    'laço para copiar folhas
    Para cada WS em ActiveWorkbook.Worksheets
        
        WS. Ativar
        Cells.Copy
        assemblyWorkbook.Activate
        Ajustar o newWS = o Worksheets.Add (em seguida: =Sheets (Sheets.Count))
        Escala (“A1”). Ativar
        Pasta de ActiveCell.PasteSpecial: =xlPasteValues
        
        'nomeando as folhas
        'Com newWS
        '    . Nome = dataWorkbookName
        'Extremidade com
        
        Escala (“A1”). Seleto
        dataWorkbook.Activate

    Em seguida
    'manual de instruções próximo
    dataWorkbook.Close
Em seguida

'ir para trás à folha que você começou o programa sobre
currentWorksheet.Activate

Application.CutCopyMode = falso
Application.ScreenUpdating = screenUpdate
Application.ScreenUpdating = displayAlerts

Ajustar a lima = nada
Ajustar nomes de arquivo = nada
Ajustar WS = nada
Ajustar o newWS = nada
Ajustar o assemblyWorkbook = nada
Ajustar o dataWorkbook = nada

Terminar o submarino
Outras soluções  
 
programming4us programming4us