Eis a solução:
sub diretorio ()
Dim nFile As StringDim nAddress As StringLet nFile = ActiveWorkbook.NameLet nAddress = Left(ActiveWorkbook.FullName, Len(ActiveWorkbook.FullName) – Len(nFile))Let qtdeBases = nAddress + "bases"Let nFile = Dir(qtdeBases & "*.xls*")
Do While Len (nomePlanilha) > 0
Let nFile = Dir()
Loop
end sub
Eis a solução:
Sub CreateObject()
Dim nAddress as StringDim nApplication as String
Let nAddress = ThisWorkbook.Path + ""
' Poderíamos usar para o Excel: Excel.Application
Set nApplication = CreateObject("Access.Application")
Let nApplication.Visible = False
nApplication.OpenCurrentDatabase (nAddress + "tmpRPT.accdb")
' Caso fosse Excel: a.Workbooks.Open (nAddress + "tmpRPT.xlsb")
nApplication.CloseCurrentDatabase
nApplication.Quit
Set nApplication = Nothing
End Sub
BESSELIReturns the modified Bessel function In(x)BESSELJReturns the Bessel function Jn(x)BESSELKReturns the modified Bessel function Kn(x)BESSELYReturns the Bessel function Yn(x)BIN2DECConverts a binary number to decimalBIN2HEXConverts a binary number to hexadecimalBIN2OCTConverts a binary number to octalCOMPLEXConverts real and imaginary coefficients into a complex numberCONVERTConverts a number from one measurement system to anotherDEC2BINConverts a decimal number to binaryDEC2HEXConverts a decimal number to hexadecimalDEC2OCTConverts a decimal number to octalDELTATests whether two values are equalERFReturns the error functionERFCReturns the complementary error functionGESTEPTests whether a number is greater than a threshold valueHEX2BINConverts a hexadecimal number to binaryHEX2DECConverts a hexadecimal number to decimalHEX2OCTConverts a hexadecimal number to octalIMABSReturns the absolute value (modulus) of a complex numberIMAGINARYReturns the imaginary coefficient of a complex numberIMARGUMENTReturns the argument theta, an angle expressed in radiansIMCONJUGATEReturns the complex conjugate of a complex numberIMCOSReturns the cosine of a complex numberIMDIVReturns the quotient of two complex numbersIMEXPReturns the exponential of a complex numberIMLNReturns the natural logarithm of a complex numberIMLOG10Returns the base-10 logarithm of a complex numberIMLOG2Returns the base-2 logarithm of a complex numberIMPOWERReturns a complex number raised to an integer powerIMPRODUCTReturns the product of complex numbersIMREALReturns the real coefficient of a complex numberIMSINReturns the sine of a complex numberIMSQRTReturns the square root of a complex numberIMSUBReturns the difference between two complex numbersIMSUMReturns the sum of complex numbersOCT2BINConverts an octal number to binaryOCT2DECConverts an octal number to decimalOCT2HEXConverts an octal number to hexadecimal
DATEReturns the serial number of a particular dateDATEVALUEConverts a date in the form of text to a serial numberDAYConverts a serial number to a day of the monthDAYS360Calculates the number of days between two dates based on a 360-day yearEDATEReturns the serial number of the date that is the indicated number of months before or after the start dateEOMONTHReturns the serial number of the last day of the month before or after a specified number of monthsHOURConverts a serial number to an hourMINUTEConverts a serial number to a minuteMONTHConverts a serial number to a monthNETWORKDAYSReturns the number of whole workdays between two datesNOWReturns the serial number of the current date and timeSECONDConverts a serial number to a secondTIMEReturns the serial number of a particular timeTIMEVALUEConverts a time in the form of text to a serial numberTODAYReturns the serial number of today's dateWEEKDAYConverts a serial number to a day of the weekWEEKNUMConverts a serial number to a number representing where the week falls numerically with a yearWORKDAYReturns the serial number of the date before or after a specified number of workdaysYEARConverts a serial number to a yearYEARFRACReturns the year fraction representing the number of whole days between start_date and end_date
Achei este texto muito interessante e elucidativo, talvez ajude-nos a refletir quão importante é dar atenção aos detalhes.
O texto é de Elazier Barbosa - elazierbarbosa@hotmail.com.
As formiguinhas e a Dona barata...
Imagine você no seu café da manhã, com o uma fatia de pão em uma mão, faca na outra pronto para pegar um pouco da sua geleia preferida e vê 3 forminhas passeando alegremente na sua geleia!
Você exclama: Puxa! São minúsculas e quase que você as vias, mas não deixam de ser formigas!
Decisão: jogar fora o seu vidro de geleia preferida recém-inaugurado!
Ou usar uma colher e tirar as ditas formiguinhas juntas com um parte da geleia, pressupondo que somente em volta de cada formiguinha deveria estar sujo, contaminando a sua querida geleia.
Pressupondo a vontade de comer sua geleia o que você faria?
A maioria, acho que com certeza aplicaria a segunda alternativa. É uma formiga mas é uma formiguinha pequenininha e se for tirada junto comum pouco de geleia, está tudo beleza!
Vamos ao segundo ato.
Repetindo a primeira cena, você leva a faca à gelia e, quem está deitadona na geleia? É a dona barata! Com a barriguinha cheia de geleia! Êta vida doce!
E agora, qual das alternativas você aplicaria? Tiraria cuidadosamente a dona barata da geléia (segurando pelas suas perninhas ?) e com um pouco de geléia junto e negócio fechado?
Eu acho que não, Acho que você horrorizado e com muita raiva jogaria tudo no lixo. Não iria nem quer aproveitar o vidro pra guardar parafusos, porquinhas e outras cositas mas que a gente guarda e nunca usa.
Como o nosso tema é administração, vamos então sequenciando para essa área
Você já percebeu quanta vezes relevou alguns funcionários que:
- Escreverem o nome de maneira errada do cliente,
- Chamam de Maria quando era Mário;
- Mandam um e-mail cheio de erros de português,
- Tratam o cliente de maneira excessivamente informal como se fosse colega de faculdade;
- Enviam a mercadoria à tarde quando era para ser enviada na parte da manhã;
- Deixam o cliente dependurado no telefone e acabam até esquecendo que o coitado estava aguardando, aguardando...
- Quando ligam para o cliente e se é atendido por uma voz feminina fazem gracejos impróprios e fazem perguntas pessoais que nada tem a ver com o negocio da companhia e por aí vai.
Ou seja você acha esses comportamentos aceitáveis pois acha que ninguém é perfeito e que isso também não vai criar maiores problemas pra a empresa
Mas convenhamos no mês, passado quando o seu funcionário tirou um pedido e errou pra cima no zero e você produziu 10 vezes mais e só pode entregar 10%, aí então você ficou uma fera e botou ele olho da rua!
Vamos voltar as formiguinhas. Mate um barata e deixe ela no chão da cozinha. Logo de manhã vai verificar como está a defunta. Você irá ver que ela está toda decorada por um batalhão de formiguinhas em ação.
Espere até a noite e as formiguinhas terão levado em partes, toda a barata pro formigueiro. Perfeito trabalho em equipe, umas cortando em pedacinhos a defunta e as outras levando os pedacinhos pra a formigueiro
Moral da história: você tem nojo de comer barata diretamente mas é relevante com as formiguinhas que comem barata, logo, você come e não acha que é problema comer barata por tabela.
Agora talvez nem precisasse continuar escrevendo. Aqueles funcionários que fazem "pequenas faltas" com o clientes são as formiguinhas que você está engolindo no dia-a-dia
Aquele que você mandou embora no mês passado era uma baratona!
Meu Amigo se você na sua cozinha continuar numa boa com as formiguinhas vai comer muitas baratas por tabela!
Lembre-se: Erros pequenos são como tijolos quando empilhados podem fazer um grande muro. O muro que irá manter sua empresa fora o mercado.
Tags: Corporativo, Dica, comportamento, fábula, aprendizado, formiga, barata
DAVERAGEReturns the average of selected database entriesDCOUNTCounts the cells that contain numbers in a databaseDCOUNTACounts nonblank cells in a databaseDGETExtracts from a database a single record that matches the specified criteriaDMAXReturns the maximum value from selected database entriesDMINReturns the minimum value from selected database entriesDPRODUCTMultiplies the values in a particular field of records that match the criteria in a databaseDSTDEVEstimates the standard deviation based on a sample of selected database entriesDSTDEVPCalculates the standard deviation based on the entire population of selected database entriesDSUMAdds the numbers in the field column of records in the database that match the criteriaDVAREstimates variance based on a sample from selected database entriesDVARPCalculates variance based on the entire population of selected database entries
CUBEKPIMEMBERReturns a key performance indicator (KPI) name, property, and measure, and displays the name and property in the cell. A KPI is a quantifiable measurement, such as monthly gross profit or quarterly employee turnover, used to monitor an organization's performance.CUBEMEMBERReturns a member or tuple in a cube hierarchy. Use to validate that the member or tuple exists in the cube.CUBEMEMBERPROPERTYReturns the value of a member property in the cube. Use to validate that a member name exists within the cube and to return the specified property for this member.CUBERANKEDMEMBERReturns the nth, or ranked, member in a set. Use to return one or more elements in a set, such as the top sales performer or top 10 students.CUBESETDefines a calculated set of members or tuples by sending a set expression to the cube on the server, which creates the set, and then returns that set to Microsoft Office Excel.CUBESETCOUNTReturns the number of items in a set.CUBEVALUEReturns an aggregated value from a cube.
