主页 / user-1798829

Alan-53's questions

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

我一直非常成功地使用它，直到有人弄乱了该文件。

所以我需要隐藏该文件或将其移动到隐藏文件夹。我遇到的问题是它在它所在的目录中创建了新文件夹。

我希望它在父目录中创建新文件夹。

 ###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

我有一个 VBA 宏，可以将 excel 文件保存到与它所在的目录相同的目录中。这执行得很好并且符合预期。

我想要做的是将文件另存为 PDF。

我尝试了各种代码，但因为我不明白这些东西都失败了。这是将文件另存为 .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

正如我发现的那样，它并不像更改.xlsm为.PDF.

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

我正在尝试制作一个批处理文件来创建 12 个从 4 月开始到 3 月结束的文件夹。我不知道如何将输入的日期设置为 year1= 或如何将日期设置为 year2 1 年后。这是我到目前为止所拥有的。

@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