- Excel VBA 質問スレ Part64
384 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 8701-1Wqm)[]：2020/01/26(日) 10:47:31.88 ID:ygprKbmU0 - 転記元の最終行を取得するところで1004エラーがでる
Dim fl As String
Dim WBo, Wbd As Workbook
Dim a As String
Dim ex As String
Dim syamei As String
Sub 変換ファイル選択()
syamei = Range("B3")
fl = Application.GetOpenFilename
ThisWorkbook.Worksheets(1).Range("C1") = fl
Set WBo = Workbooks.Open(fl)
MsgBox "出力先を選択"
With Application.FileDialog(msoFileDialogFolderPicker)
.Show
a = .SelectedItems(1)
End With
With ThisWorkbook.Worksheets(1)
ex = a & "\" & .Range("B3") & "_" & Year(Now) & "_" & Month(Now) & ".xlsx"
.Range("C2") = ex
.Activate
End With
Set Wbd = Workbooks.Add
Wbd.SaveAs ex
ThisWorkbook.Worksheets(2).Activate
ActiveSheet.Copy Wbd.Worksheets(1)
ThisWorkbook.Worksheets(1).Activate
End Sub
|
- Excel VBA 質問スレ Part64
385 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 8701-1Wqm)[]：2020/01/26(日) 10:47:38.48 ID:ygprKbmU0 - Sub 変換処理()
Dim Wsd As Worksheet '請求書
Dim Wso As Worksheet '転記元
Dim i As Long 'ForNext用
Dim j As Long
Dim ko As Long '個数
Dim Kohani As Range
Dim fnkohani As Range
Set Wsd = Wbd.Worksheets(1)
Set Wso = WBo.Worksheets(1)
Const Dhin = 1
Const Dtan = 2
Const Dko = 3
Const Dkin = 4
'転記元定数
Const Ohin = 4
Const Otan = 3
Wsd.Activate
With Wso
Range("E3") = Year(Now) & "/" & Month(Now)
j = 7
For i = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
If .Cells(i, 1) = syamei Then
MsgBox syamei
End If
Next i
End With
End Sub
|
- Excel VBA 質問スレ Part64
386 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 8701-1Wqm)[]：2020/01/26(日) 10:48:01.26 ID:ygprKbmU0 - for i = のところね、なんで？
|