Question

我想在另一个目录中访问工作簿中的数据，但是我不知道语法，请您能帮我吗？

我已经尝试过类似的方法，但是它不起作用

Workbooks("U:\a.xlsx").Sheets("a").Range("A2")

Answer 1

要读取值，您需要先打开该文件。

import Foundation
import SwiftUI
import Combine

struct PagesView : View {
    let limit: Double = 15
    let step: Double = 0.3

    @State var pages: [Page] = (0...3).map { i in
        Page(title: MockData.title, imageName: MockData.imageNames[i], content: MockData.contentStrings[i])
    }

    @State var currentIndex = 0
    @State var nextIndex = 1

    @State var progress: Double = 0
    @State var isAnimating = false

    static let timerSpeed: Double = 0.01
    @State var timer = Timer.publish(every: timerSpeed, on: .current, in: .common).autoconnect()

    @State private var shape = AnyView(Circle().foregroundColor(.blue).frame(width: 60.0, height: 60.0, alignment: .center))

    var body: some View {
        ZStack {
            Button(action: {
                self.isAnimating.toggle()
                self.timer = Timer.publish(every: Self.timerSpeed, on: .current, in: .common).autoconnect()
            }) { self.shape
            }.offset(y: 300)

            PageView(page: pages[currentIndex])
                .offset(x: -CGFloat(pow(2, self.progress)))
            PageView(page: pages[nextIndex])
                .offset(x: CGFloat(pow(2, (self.limit - self.progress))))
        }.edgesIgnoringSafeArea(.vertical)
            .onReceive(self.timer) { _ in
                if !self.isAnimating {
                    return
                }
                self.refreshAnimatingViews()
        }
    }

    func refreshAnimatingViews() {
        progress += step
        if progress > 2*limit {
            isAnimating = false
            progress = 0
            currentIndex = nextIndex
            if nextIndex + 1 < pages.count {
                nextIndex += 1
            } else {
                nextIndex = 0
            }
        }
    }
}

struct Page {
    var title: String
    var imageName: String
    var content: String
    let imageWidth: CGFloat = 150
}

struct PageView: View {
    var page: Page

    var body: some View {
        VStack(alignment: .center, spacing: 15) {
            Text(page.title).font(Font.system(size: 40)).fontWeight(.bold).lineLimit(nil)
            Image(page.imageName)
                .resizable()
                .frame(width: page.imageWidth, height: page.imageWidth)
                .cornerRadius(page.imageWidth/2)
                .clipped()
            Text(page.content).font(.body).lineLimit(nil)
        }.padding(60)
    }
}

struct MockData {
    static let title = "Eating grapes 101"
    static let contentStrings = [
        "Step 1. Break off a branch holding a few grapes and lay it on your plate.",
        "Step 2. Put a grape in your mouth whole.",
        "Step 3. Deposit the seeds into your thumb and first two fingers.",
        "Step 4. Place the seeds on your plate."
    ]
    static let imageNames = [
        "screen 1",
        "screen 2",
        "screen 3",
        "screen 4"
    ]
}

或者如果要隐藏在后台而不显示工作簿：

Dim otherwb as Workbook
Set otherwb = Workbooks.Open("U:\a.xlsx")

Dim otherwbRange as Range
Set otherwbRange = otherwb.Sheets("a").Range("A2")

在这里，适当的错误处理可能对确保在发生任何错误时关闭ExApp有用。否则，该过程将保持打开状态。

Answer 2

您需要打开工作簿才能访问它。

赞：

startup_XXX.s

Answer 3

您需要先为工作簿创建一个对象。

尝试类似的东西：

Dim excel_wb2 As Excel.Workbook

Set excel_wb2 = Excel.Workbooks.Open("U:\a.xlsx")

x = excel_wb2.Sheets("a").Range("A2")

在另一个库中访问工作簿的数据

3 个答案: