Início / user-1798829

Alan-53's questions

Martin Hope
Alan-53
Asked: 2023-06-07 19:29:45 +0800 CST
  • 4

Eu tenho usado isso com bastante sucesso até que alguém mexeu com o arquivo.

Portanto, preciso ocultar o arquivo ou movê-lo para uma pasta oculta. O problema que tenho é que ele cria as novas pastas no diretório em que reside.

Eu gostaria que ele criasse as novas pastas no diretório pai.

 ###Get the year entered by the user
$year = Read-Host "Please enter year"

$nextyear = [int]$year + 1

$yearfolder = "$year-$nextyear"

###Set the starting date
$startdate = [DateTime] "01 April $($year)"
$count = 1

###Set the file's path by combining the folder path and the filename
$filename = join-Path -Path (Get-location) -ChildPath "a.txt"

###Create folder based on the year entered by the user
New-Item -ItemType Directory -Name "$($yearfolder)"

###Change directory to the newly created folder
cd "$($yearfolder)"


While ( $count -lt 13)
{
    ###Create folders 
    $newfolder = "$($count.ToString('00')) - $($startdate.ToString('MMMM yyyy'))"
    New-Item -ItemType Directory -Name "$newfolder"

    #Copy file to new folder
    Copy-Item -Path $filename -Destination $newfolder

    #Add one month
    $startdate = $startdate.AddMonths(1)

    #Increment the counter
    $count = $count + 1

}
powershell
Martin Hope
Alan-53
Asked: 2023-05-18 17:28:00 +0800 CST
  • 6

Eu tenho uma macro VBA que salva um arquivo do Excel no mesmo diretório em que está. Isso funciona bem e conforme o esperado.

O que eu quero fazer é salvar o arquivo como um PDF.

Eu tentei vários pedaços de código, mas porque eu não entendo essas coisas falharam muito. Aqui está o código para salvar o arquivo como .xlsm

Sub save_file()
  Dim path As String
  Dim filename1 As String
  path = ThisWorkbook.path & "\"     'Same path as current project that the User opened.
  filename1 = Range("M1").Text
  Application.DisplayAlerts = False
  ActiveWorkbook.SaveCopyAs filename:=path & filename1 & ".xlsm"
  Application.DisplayAlerts = True
End Sub

Como descobri, não é tão simples quanto mudar .xlsmpara .PDF.

microsoft-excel
Martin Hope
Alan-53
Asked: 2023-05-13 18:36:41 +0800 CST
  • 6

Estou tentando fazer um arquivo em lote para criar 12 pastas começando em abril e terminando em março. Não sei como fazer com que a data inserida vá para definir ano1= ou como fazer com que a data definida como ano2 1 ano depois. Isso é o que eu tenho até agora.

@echo off

Rem( user input required say 2023 )
set /p input= Type The Year :

Rem ( 2023 from user input )
set Year1=
                            
Rem ( 2023 from user input + 1 year )
set Year2=

MKDIR %year%
CD %year%

:: GOTO FULL_MONTH

:FULL_MONTH
    
    mkdir "01 - April %Year1%"
    mkdir "02 - May %Year1%"
    mkdir "03 - June %Year1%"
    mkdir "04 - July %Year1%"
    mkdir "05 - August %Year1%"
    mkdir "06 - September %Year1%"
    mkdir "07 - October %Year1%"
    mkdir "08 - November %Year1%"
    mkdir "09 - December %Year1%"
    mkdir "10 - January %Year2%
    mkdir "11 - February %Year2%
    mkdir "12 - March %Year2%

:DONE
Dir
Pause
batch-file