请教各位大神，VBA小白

书彤若影

请教各位大神，附件中Flgiht Schedule的sheet中的信息，怎样设置VBA代码能到数据库的Sheet中自动生成？试了几次都不能成功，写了最基础的VBA代码。

谢谢各位。

yvhgydn

Sub test()
    Dim i
    i = Sheets("数据库").[a65536].End(3).Row + 1
    Sheets("数据库").Range("A" & i) = [C3]
    Sheets("数据库").Range("B" & i) = [E3]
    Sheets("数据库").Range("C" & i) = [G3]
    Sheets("数据库").Range("E" & i) = [I3]
    Sheets("数据库").Range("F" & i) = [K3]
    Sheets("数据库").Range("G" & i) = [C4]
    Sheets("数据库").Range("H" & i) = [E4]
    Sheets("数据库").Range("C" & i) = [G4]
    Sheets("数据库").Range("E" & i) = [I4]
    Sheets("数据库").Range("F" & i) = [K4]
    Sheets("数据库").Range("G" & i) = [C5]
    Sheets("数据库").Range("H" & i) = [E5]
    Sheets("数据库").Range("C" & i) = [G5]
    Sheets("数据库").Range("E" & i) = [I5]
    Sheets("数据库").Range("F" & i) = [K5]
    Sheets("数据库").Range("G" & i) = [C6]
    Sheets("数据库").Range("H" & i) = [E6]
    Sheets("数据库").Range("C" & i) = [G6]
    Sheets("数据库").Range("E" & i) = [I6]
    Sheets("数据库").Range("F" & i) = [K6]
    Sheets("数据库").Range("G" & i) = [C7]
    Sheets("数据库").Range("H" & i) = [E7]
    Sheets("数据库").Range("C" & i) = [G7]
    Sheets("数据库").Range("E" & i) = [I7]
End Sub
代码能执行，但从标红的代码你是反复在执行，是什么意思
另外把按钮指定宏连接到Sheet2.test
你是把按钮指定宏连接到'Flight Schedule'!提交，但实际是你在这个表中没有 提交 这个宏代码
点击按钮右键，指定宏，选取宏名

书彤若影

yvhgydn 发表于 2022-12-29 16:01
Sub test()
    Dim i
    i = Sheets("数据库").[a65536].End(3).Row + 1

因为我想提取G4,G5,G6,G7的数据，然后我这边一执行，就提示我宏不能运行，但是我已经设置过信任所有宏打开了。

yvhgydn

你是把按钮指定宏连接到'Flight Schedule'!提交，但实际是你在这个表中没有 提交 这个宏代码
点击按钮右键，指定宏，选取宏名
试试另外把按钮指定宏连接到Sheet2.test
还有如果在模块中写不要用[a1]这种模式，因为 不知道指写的是 哪一个 表 中的单元格

书彤若影

yvhgydn 发表于 2022-12-29 16:11
你是把按钮指定宏连接到'Flight Schedule'!提交，但实际是你在这个表中没有 提交 这个宏代码
点击按钮右 ...

谢谢您，我是可以运行宏了，但是提取到后面的数据，不能全部生成，只生成了8列，后面的都是空白的是什么原因呢？

yvhgydn

书彤若影 发表于 2022-12-29 16:14
谢谢您，我是可以运行宏了，但是提取到后面的数据，不能全部生成，只生成了8列，后面的都是空白的是什么 ...

你看我上面代码中标红的，你的代码只写到H列，其余就在重复了，所以 就只有8列

书彤若影

yvhgydn 发表于 2022-12-29 16:21
你看我上面代码中标红的，你的代码只写到H列，其余就在重复了，所以 就只有8列

Sub test()
    Dim i
    i = Sheets("数据库").[a65536].End(3).Row + 1
    Sheets("数据库").Range("A" & i) = [C3]
    Sheets("数据库").Range("B" & i) = [E3]
    Sheets("数据库").Range("C" & i) = [G3]
    Sheets("数据库").Range("E" & i) = [I3]
    Sheets("数据库").Range("F" & i) = [K3]
    Sheets("数据库").Range("G" & i) = [C4]
    Sheets("数据库").Range("H" & i) = [E4]
    Sheets("数据库").Range("I" & i) = [G4]
    Sheets("数据库").Range("J" & i) = [I4]
    Sheets("数据库").Range("K" & i) = [K4]
    Sheets("数据库").Range("L" & i) = [C5]
    Sheets("数据库").Range("M" & i) = [E5]
    Sheets("数据库").Range("N" & i) = [G5]
    Sheets("数据库").Range("O" & i) = [I5]
    Sheets("数据库").Range("P" & i) = [K5]
    Sheets("数据库").Range("Q" & i) = [C6]
    Sheets("数据库").Range("R" & i) = [E6]
    Sheets("数据库").Range("S" & i) = [G6]
    Sheets("数据库").Range("T" & i) = [I6]
    Sheets("数据库").Range("U" & i) = [K6]
    Sheets("数据库").Range("V" & i) = [C7]
    Sheets("数据库").Range("W" & i) = [E7]
    Sheets("数据库").Range("X" & i) = [G7]
    Sheets("数据库").Range("Y" & i) = [I7]
End Sub
您好，我改了下，是可以全部提取了，但是比如起飞落地的时间那里，就是小数，生成的不是我前面的时间格式，还有WEEK那列还是空的，请教是我的代码哪里编写的还不正确吗？

书彤若影

yvhgydn 发表于 2022-12-29 16:21
你看我上面代码中标红的，你的代码只写到H列，其余就在重复了，所以 就只有8列

您好，谢谢您，已经可以了，请教为什么时间格式的无法在后面自动生成呢？生成的都是小数，0.几的这样

书彤若影

yvhgydn 发表于 2022-12-29 16:21
你看我上面代码中标红的，你的代码只写到H列，其余就在重复了，所以 就只有8列

您好，打扰了，我更改了单元格格式，可以了，谢谢您